G 6 


a 
Cad 
~N 


IWII1I1111 BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
III BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
II] BB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL Il] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA = RRRRRRRRRRRR 
LLL II] BBBBBBBBEBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL IJ] BBB BBB RRR RRR AAAAAAAAAAAAAAA = RRR RRR 
LLL II] 888 BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL 1] BBB BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL II] BBB BBB RRR RRR ABA AAA RRR RRR 
LLL II] 888 BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB RRR RRR AAA AAA RRR RRR 
LELLLLLLELLLLLL III BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 


000 
33 
000 
000 
000 
000 
i 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
00 
00¢c 
00Cc 
: 


**F ILE**1D** INPUTOBJ 
11111 NN NN PPPPPPPP UU UU TITTTTTITT 000000 BBBBBBBB 
111111 NN NN PPPPPPPP UU UU TTTTTTTTITT 000000 BBBBBBBB 
I] NN NN PP PP UU UU TT 00 00 88 
I! NN NN PP PP UU UU TT 00 00 8B BB 
I] NNNN NN PP PP UU UU TT 00 00 6B BB 
I] NNNN NN PP PP UU nM TT 00 00 6B BB 
II NN NN NN PPPPPPPP UU TT 00 00 88888888 
II NN NN NN PPPPPPPP UU TT 00 00 88888868 
I] NN NNNN PP UU UU TT 00 BB BB JJ 
I] NN NNNN PP UU UU TT 00 00 6B BB JJ 
Ht NN NN PP UU UU TT 00 00 6B BB JJ 
I NN NN PP UU UU TT 00 00 88 BB JJ 
11111] NN NN PP UUUUUUUUUU TT 000000 BBBBBBBB JJJJJJ 
1111 NN NN PP UUUUUUUUUU TT 000000 BBBBBBBB JJJJJJ 
LL III] SSSSSSSS 
LL HII SSSSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLELLLLLLLL T1111] SSSSSSSS 
LLLLLLLLLL 11111 SSSSSSSS 


<r 
oo 


SS ees 
SS Se ee 
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MODULE LibLinputobj ( eae UAGE ' $32), 
‘ ENT voa- 88 0° 


BEGIN 

; 

: 

RRR AE AAA EA RE AAEE ER REAAER EERE AE AERA ERATE ARATE REET 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
'e DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED, 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY 4 ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


jolelelelolelelelelajlejlejlalelelelelelo) 
MPMINPNINININ 2 2 2 SS DOOD OCOOOCO 


—OOONAVE WN $9 ODNAU EWN 0 OODNOU SW SO OODNOUS WN 


® 
tt 
& 
® 
® 
® 
® 
& 
' ® 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT 10 CHANGE WITHOUT NOTICE 
® 
® 
® 
® 
® 
® 
* 
* 


He SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'e CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


Oooooeo°coeo 


SoOooooocoooo oo CSoooooooo 
Sssssss SoaaeaeeaeS COooooQoooosoo 


§ ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
. | papanbisabenendbenedethhabennesnhsobestenennennsensienhnebesabadonaneenedan 
! } 
32 1 i | 
3 '+4 
3 : 
3 FACILITY: Library command processor 
; i ABSTRACT: 
3 The VAX/VMS Librarian is invoked by DCL to process the LIBRARY | 
4 command. It utilizes the Librarian procedure set to perform 
O06 the actual modifications to the Library. 
a948 i ENVIRONMENT : 
hoes VAX native, user mode. 
004 


AUTHOR: Benn Schreiber, CREATION DATE: 12-June-1979 
i MODIFIED BY: 


v02-008 RPGO04 Grosso 11-Mar-1982 
When seubal multiply detincd = the same module, 
disregard subsequent reference 
Also Tix up several places where SBYTEOFFSET should be used. 


NOU EWN OOD NOA UE WN HO OD NAME WN OOO NAUES WN (OOD NAUES WN ODOONOUS WN 
tt hh SS SS 1 OOOO 
a7 
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PUPP BS BS BS BS BBE EB BAAN NAINA PIPOPIPNPONOPONDYD 2 SS OO 


; 1! 
: : 3 r WO20°7 support Yor Logging replace operations in history. 
6 O68 : wots Support os as records on ere sidlbencalichie 

: 6g 066 7 ee LibSgl_ Rtas y a “a stan hint 

: Boss 1; “20 coneinue"efter’s duplicate mowstes = une 198 
; i Bore 1} “5 ecard asdate anes for tpaete history. “2 Mer—19e1 
. 7? ! ~ 

; 7 30 | ce —— Convert messages to message’ compiler. nad. tbr oe ol 


L4e 4ypuToey i$ deoct9Rs 01:97:57 yAteIy OL enc32 v4.0-743 
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| NPUTOBJ 
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L1B_ 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 Page 
yoe2000 Declarations 132808-1 382 93:38:84 LIBRAR.SRCJINPUTOBJ.B 31 ' ( 
{8 r 1 ZSBTTL ‘Declarations’; 
1 8 LIBRARY 
¢ 4 aeeulne *SYSSLIBRARY:LIB.L32'; 'System macro definitions 
84 8 *PREFIX'; 'SET OF GENERAL MACROS ETC 
85 6 REQUIRE 
86 g "LIBDEF'; 'Librarian structure defs. 
87 REQUIRE 
4 "LBRDEF'; ‘Library processor defs. 
90 ee 
91 Lor$gl_rmsstv : ADDRESSING_MODE (GENERAL), !RMS STV from Librarian 
9 tips stn oof eoasx: 'Index number for module name index 
a Lib$gl_objgsdix, ‘index number for gsd symbols 
Lib$gl_recount 'Count of records inserted 
Lib$al-rab : BBLOCK, input file RAB 
LibSgl_type 'Type of Library opened 
Lib$gl_ke size, 'Max size of key 
Lib$Sgl_ctlmsk : BLOCK [2], !Control flags 
Lib$Sgl_Libfdb : REF BBLOCK, !Pointer to “orery fdb 
Lib$Sgl_inpfdb : REF BBLOCK, !Pointer to input file fdb 
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Lib$gl-Libctl:; 
FORWARD ROUTINE 


‘Library control index 


prorec, ‘check sequence and + | record 
copyrec, ‘copy record to object library 
prondr, ‘Routine to process module headers 
protir, ‘Routine to process TIR records 
progsd, ‘Routine to process gsd records 
proeom, H end of module : 
seqchk, Be verify correct sequence of obj records 
propsectdef, 'Process p-section definitions 
symbols, 'Process symbol definitions and references 
entpnts ‘Process entry point definitions 
procedef, 'Process procedure declarations 
pro_epmw, 'Process entry point definition with word psect 
pro_idc, 'Process random entity check 
pro_env, 'Process environment definition 
pro_lsy, !Process local symbol definition/reference 
pro_lepm, ‘Process local symbol entry point definition 
pro_lpro, 'Process local pyatet procedure definition 
pro spsc. 'Process shareable image psect definition 
profile, ‘Read all records of file 
finish_object, 'Do end of module processing 
delsym ‘Add symbol to delete syape list 
prosymbol; 'Do all the work of symbol resolution 

EXTERNAL ROUTINE 
Lib_get_mem, ‘Allocate virtual genery 
Lib_get_zmem, ‘Allocate zeroed virtual memory 
Lib_free_mem, ‘and give it back 
Lib_log_op, 'Log operation on console 
lib Log_upd. ‘record module names for LUH 
Lbr$search : ADDRESSING_MODE (GENERAL) ‘Search index for keys with RFA 
Lbr$delete_data : ADDRESSING MODE (GENERAL), ‘Delete data 
Lbr$put_retord : ADDRESSING_MODE (GENERAL), !Write record to Library 


11 
LIB_INPUTOBJ 1h-Sep-19 4 01:57:57 AX-11 Bliss-32 V4.0-74 Page 4 
yOe=000 Declarations 12286871382 9 88:04 LIBRAR.SRC TNeUYOB) 64951 (2) | 
_ 1195 1 tprseut end ADDRESSING_MODE (GENERAL), !Terminated writing records | 
; 1 1138 1 Lor$lookup_key : ADDRESSING MODE Beem RAL). jbookye key in Library 
; (138 1197 1 Lbr$set_index : ADDRESSING MODE (GENERAL 'Set index number 
: 139 1198 | (brSinsert_key RESSING_MODE (GENERALS, ‘Insert key | 
; 140 1199 1 Lbr$set_module : ADDRESSING MODE (GENERAL), !Set module attributes 
: 141 1200 1 Lbr$replace key : ADDRESSING MODE (GENERALS, ‘Replace key | 
3 106 1201 1 lbr$delete_Key : ADDRESSING _SODE (GENERAL), !Delete key from Library 
3 \e7 : 8 : get_record; 'Get next input record 
: 145 1 04 ] EXTERNAL LITERAL | 
3 148 1205 1 Lib$S_notshrimg, 'File not shareable image 
; 16 1 $ 1 t ib$_nosymbols, 'No stb in shareable image 
; 148 1 1 Lib$_recing, ‘Illegal record Length 
3; «149 1208 1 Lib$S_rectyp, ‘Illegal record type 
; 150 1209 1 Lib$S_noeom 'No eom record 
: 151 1210 1 Lib$-strivl itLlegal structure Level | 
: 138 1211 1 Lib$-modnam(ng, iTLLegal module name Length 
3; 1 \¢ 1 Lib$_indexerr, 'Index error 
; 154 1215 1 Lib$S_inserted, ‘Module inserted 
3 139 1214 1 Lib$S_replaced, ‘Module replaced 
: 136 1215 1 Lib$_dupmodule, itecst™s module 
3; 137 1216 1 Lib$_gsdtyp, ‘Illegal gsd type 
; 158 1217 1 Lib$S_spnaming, ‘Illegal psect name length 
; 159 1218 1 Lib$_symnaming, lout tee symbol name Length 
; 160 1$3? 1 Lib$_dupglobal, ‘Duplicate global 
; 161 1220 1 Lib$_comcod, ‘Compilation errors in module 
3 166 1221 1 Lib$_mhderr, ‘Module header error | 
; 1% 1$S¢ 1 Lib$_inserterr, ‘Insertion error 
3; «164 1225 1 Lib$_delkeyerr, 'Delete key error 
: 165 1224 1 Lib$_deldaterr, ‘Delete data error 
: «166 1225 1 Lib$_seqnce; 'Record sequence error 
1 TB Tom 
; 169 1228 1 shrgsmatch, !GSMATCH for shareable image 
; 170 1229 1 operation, 
3 17} \¢30 : : dseen, 
: nmseen, 
3 195 1382 1 dupseen, ' Record that a duplicate module is being processed 
3; «174 1233 1 gsdoffset ‘Offset into concatenated gsd record 
: 175 1234 1 symbolstring : REF VECTOR C,BYTE, iPointer to current symbol 
: 176 1235 1 recdesc : BBLOCK Cdsc$c_s_bin], ‘String descriptor for record 
3; W777 1$38 1 lastrectyp, 'Type of the previous record 
; 178 1237 1 currectyp : INITIAL (obj$c_eom), ‘Type of the current record 
; 179 1s 3 1 maxrecing +: INITIAL (obj$c_maxrecsiz), 'Maximum record Length 
; 180 1 1 mod_name : VECTOR Csym$c_maxing+1, BYTE), ‘Module name 
3; «(181 1240 1 modulerfa : BBLOCK irfa$c_length), 'RFA of module text 
3 136 1241 1 oldmodrfa : BBLOCK [rfa$c_length], 'RFA of old module text 
; (18 1 4g 1 replacing, jel ee if replacing this module 
3 is : rb ' moduledesc : BBLOCK (De cmod-fane C1), 'String descriptor for module name 
: + mod_name 
: 186 1265 1 moduledata : VECTOR (sym$c_maxing + 2, BYTE), 'Moduleflags, idling, moduleid 
; 187 1 $6 1 lLoblist : VECTOR (2), 'Listhead for globals to insert 
: «188 1247 1 elist : VECTOR (2), 'Listhead for globals to delete 
: «#189 1 $8 1 compilecods : BBLOCK (5 * dsc$c_s bln] INITIAL ‘Name the compilation completion codes 
3 190 1249 1 (STRINGDESC™ (*success'), 
s 191 1250 1 STRINGDESC (‘warnings’), 
3; 192 1251 1 STRINGDESC (‘errors"), 


— OO 


7 
11 
L1B_INPUTOBJ 18-Sep -1984 AX-11 Bliss-32 V4.0-7 Page 5) 
bons =h00 Declarations 1e-8ep-1984 4 93: 3bi04 LIBRAR.SRCJINPUTOBJ. b3 31 . (2) | 
: 193 1 é 1 STRINGDESC ("fatal errors’), | ; 
3 132 : ? : STRINGDESC (‘illegal compilation code')); | : 
+ | ° 
3 138 1255 1 BIND PF 
; 19 1 § 1 modnaming = mod pane co, 'Name the module name Length H 
3 138 1 1 modulename = mod_name [1] : SEC fOR. c BYTE], ' and the module name : 
>. 1 8 1 moduleflags = t nodules gee fv fod. iname module flags byte : 
; 200 1259 1 idling = modul ‘Length of module ident ; 
; 201 1260 1 moduleid = moduledata 31° ¥ VECTOR ' BvTEd. iName module ident ; 
; 4 1261 1 reclng = recdesc Ldsc$w_length i Name the length of the record . 
; 2 1262 1 objrec = recdesc (dsc$a_ =pointer) : nD *BBLOCK ‘and the pointer 3 
: 204 1263 1 objvec = recdesc Cdsc$a_pointer] : REF VECTOR lL, BYTE} ‘ 
; 205 1264 1 recdispatch = PLIT( ‘Set up maximum allowed record type ; 
; 206 1265 1 prohdr, iQ = module header : 
3 eor 1266 1 progsd, ‘1 - an¢ records ; 
: 208 1267 1 protir, i§ - : 
: 209 1268 1 proeom, '5 = end of module . 
; 210 1269 1 prorec, 14 = dbg - check sequence and copy ‘ 
s ay 1270 1 prorec, '5 = tbt = check sequence and copy ; 
; si§ 1271 1 prorec '6 = lnk = check sequence and copy : 
; 21 1s7¢ 1 proeom) : VECTOR; '7 = eomw : 
3 sie 1275 1 BUILTIN 2 
3 15 1274 «(1 INSQUE, 
; 216 1275 (1 REMQUE; 
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tbe =b00 L1B-INPUT_0BJ 1eree= hobs Pb:8h:8, | ee teaAR teas Yhas oss. 1 age 39 
76 1 XSBTTL 'LIB-INPUT_OBJ’; 
1 GLOBAL ROUTINE Lib_input_obj = 
BEGIN 


| Process an object file 
LOCAL 
hdrblkcnt 


symdsc : REF BBLOCK, 
status; 


IF \Soeel cthaat Clib$v_shrstb] 'If processing shareable image stb 
THEN BEGIN 
LibSal_rab Crab$l_bkt] = 1; 'Set to read block 1 
LibSal_rab Crab$w_uszJ] = 512; ! and only block 1 
rms_perform ($READ (RAB = Lib$al_rab), ‘Read the image header 
ib$_readerr ! report any error 
-LibSal_rab frab$t_stv), 1, LibSgl_inpfdb Cfdb$l_namdesc]); 


IF pet ree Crab$w_rsz] NEQ 512 ! Image header is 512 bytes long 


BIND 
header = .Lib$Sal_rab Crab$l_ubf] : BBLOCK; 


IF .~headerCihd$Sb_imgtype] NEQ ihd$k_Lim ! type must agree 
OR .headerlifid$w_majorid] NEQ ifid$k_majorid ! major header id must match 
R .headerLihd$w_minorid] GTRU ihd$k_minorid : minor id must not be greater 
OR .headerlihd$w_size] GTRU MAXU((.headerLihd$w_patchoffJ 
+ thpSh_tengch) . thask Lengths 
iha$k_length+Ths$ otength+ihiSk_ Length) ! Header fixed part must be 


! and contained in header 
OR (hdrblkcnt = .headerLihd$b_hdrblkcnt]-1) LSS 0 
OR (symdsc = header + .headerLihd$w_symdbgoffJ) ! GST descriptor must be 

GEQU (header + .headerLihd$w_sizeJ) ! contained in header 
OR (.symdsclihs$w_gstrecsJ) LSSU ! Must be at least 3 blocks 
OR (.symdsclihs$l_gstvbn]) LEQU ! and must be beyond header blocks 


(.hdrblkcnt + 2) 
THEN true ; ‘It's not a shareable image 
ELSE soncoeaaten = ,headerLihd$l_ident];!It's a shareable image, so save the gsmatch 
alse 


vv 


a ee em em ee a ee a a ed ed 2 wd od ed wd dd od dd 
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THEN BEGIN 
SIGNAL (Li 
RETURN Lib 
END; 

b$al_rab trab$b 
(Lib$al_rab Cr 
N BEGIN 


f 
Lib$Sal_rab Crab$w_rf 
rms_perform ($F IND ; 

a 


img, 1, Lib$Sgl_inpfdb Cfdb$l_namdesc)); 


AAEM GIVI BBB BBE EE PW 
Ron SS eo Ae CeO oO Doe OA Pim ODO NO APUG BO Dee IO Oe OO OO DOD 


. 
i 

ab$c_rfa; 'Set to point to object file 
J = .symdsc Cihs$l_gstvbn]) NEQ 0 ! which is the symbol table 
) 

B 

e 


a 
0; ! on a block boundary 
LibSal_rab) 


aderr, 1, Lib$gl_inpfdb Cfdb$l_namdesc]); 
= rab$c_seq; 'Reset to sequentioal 


Lib 
Lib$al_rab Crab$b_r 


N 
ELSE BEGIN 

SIGNAL (Lib$S_nosymbols,1,lib$gl_inpfdb Cfdb$l_namdesc)); | 

— true 


iv oY a? at oF ot oF ot ot el”, | Ye er et eh a eh a ee sh ee er or er ar or rr le ee eee eee 
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SN NNO O 


ee haa 


LIB-INPUT_OBJ 


3 273 1333 END; 

: 7 1334 status = proces 0; 

s e7 1335 IF a sta 

: 78 1 § THEN finish object (false); 
: 79 1 RETURN .statu 

; 280 1338 END; 


09 73 73 65 «63 $3 75 3 
67 $f $3 6E § $1 7 
99 20 2 OF 7 2 65 
73 72 6F 7 65 20 of 61 74 61 66 
61 6C 69 70 6D 6F 635 20 6C 61 § 65 6C 6¢ 9? 
65 64 6F 85 0 6€ OF ost00n8 
00000000v 00000000v 00000000v 00000000v 00000000v 00000000 
00000000v 00000000 
00000003 
00000800 
00000000 
00000000" 


<< 


ifodeo-19ge 01:52:87 


'Clean up if an error 


AX-11 Bliss-32 V4.0-74 
LIBRAR.SRCJINPUTOBJ .B32;1 


!Of Lib input_obj 


-TITLE LIB_INPUTOBJ 
- IDENT K VOR -OODN 
-PSECT S$PLIT$,NOWRT,NOEXE,2 
48 P.AAA: .ASCII \success\<0> 
0008 P.AAB: .ASCII \warnings\ 
0010 P.AAC: .ASCII \errors\<0><0> 
0018 P.AAD: .ASCII \fatal errors\ 
0083 P.AAE: .ASCII \illegal compilation code\ 
0003C -LONG 8 
00040 P.AAF -ADDRESS PROHDR, PROGSD, te she PROEOM, PROREC, - 
00058 PROREC, PROREC, PROEOM 
-PSECT SOWNS,NOEXE,2 
00000 eae ‘ 
00004 OPERATION: | : 
00008 MHDSEEN:.BLKB 4 
QOOOC LNMSEEN:.BLKB 4 
00010 Hest -BLKB 4 
00014 GSDOFFSET: 
BLK 4 
00018 SYMBOL STRING: ‘ 
Q0001C RECDESC:.BLKB 8 
00024 LASTRECTYB: ‘ 
00028 CURRECTYP: ; 
0002C MAXRECLNG: 
‘ 2048 
00030 MOD MARE: = 
00050 MODULERFA: 
BLK 6 
00056 -BLK 2 
00058 OLDMODRFA: 
ae 6 
005 -BLK 2 
006 REPLACING: 4 
00064 MUL ERE 0 


00068 ADDRESS MOD _NAME +1 
0006C MODULEDATA: 


BeBe Se Se Se Se Ge Ge Se 
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e=000 L1B-INPUT_OBJ 12-808 - 1 3be PT eH LIBRAR. SRC} TNPUY OBS .83 31 . (33 
-BLKB 3 
9 Bre | 
80090 GLOBLIST: pee | 
098 DELIST: :BLKB | 
00000007 atta COMPILECODS: , | 
0000° AG «ADDRESS P.AAA : 
SHS ain “ADDRESS. P.AAB | 
$000 06 0080 *L 4 : 
900908 ° 008% “ADDRESS P.AAC : 
C 4 LONG : 
90000006" 008 “ADDRESS P.AAD : 
00000018 000C6 :LON : 
00000000" 000¢4 “ADDRESS P.AAE : 
MODNAMLNG= MOD_NAME 
MODULENAME = MOD ~NAME+1 
MODULEFLAGS= LED | 
IDLNG= MODULEDATA+1 
MODULE 1D= MODULEDATA+2 
RECLNG= RECDESC 
OBJ REC= RECDESC+4 
JVEC= RECDESC+4 | 
RECDISPATCH= P. AAF | 
XTRN LBRSGL_RMSSTV, LIBSGL_OBJMODIX 
“EXTRN LIBS$GL~OBJGSDIX | 
-EXTRN LIBSGL-RECOUNT, LIBSAL_R 
-EXTRN LIBSGL-TYPE, LIBSGL_KEYSIZE 
-EXTRN LIBSGL-CTLMSK, LIBS$GL_LIBFDB | 
“EXTRN LIBSGL-INPFDB, LIB$GL-LIBCTL 
-EXTRN LIB_GET MEM, LIB GET.ZMEM 
-EXTRN LIB-FREE_MEM, LIB LOGO 
SEXTRN LIB~LOG OPD, LBRSSE ARCH 
-EXTRN LBRSDELE 
-EXTRN LBRSPUT RECORD, LBRSPUT_END 
TEXTRN LBRSLOORUP_KEY, LBRSSET~ INDEX 
-EXTRN LBRSINSERT-KEY, LBRS$SET-MODULE 
SEXTRN LBRSREPLACE KEY 
“EXTRN LBRSDEL ETE REY. GET_RECORD 
-EXTRN LIBS_ NOTSHRING. ries. AOS TRBOLS 
-EXTRN LIBSTRECLNG, LiB$_RECTYP 
EXTRN LIBS“NOEOM. L $ FAL LVL 
.EXTRN LIBS~MOD C1IB$_INDEXERR 
*EXTRN LIBS" INSCRTED “LIBS REP EPLACED 
SEXTRN LIBS"DUPMODULE, LIBS GSD 
“EXTRN LIBS”SPNAMLNG, tae Sy CaMAALNG 
-EXTRN LIBS$~DUPGLOBAL L 18s COMCOD 
TEXTRN LIBS"MHDERR, LIB$_INSERTERR 
-EXTRN LIBS DELKEYERR TBs. DELDATERR 
SEXTRN LIBS "SEQNCE, SYSSR 
“EXTRN SYSSFIND 


~PSECT SCODES,NOWRT,2 
0OFC 00000 -ENTRY LIB_INPUT_OBJ, Save R2,R3,R4,R5,R6,R7 ; 1278 
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107000 L1B-INPUT_0BJ 1e738p-1382 83:88:04 EM faRan SRedineutcas.0%3,1 ase 33 
7 0000 0006 8F po 2 MOVL § #LIBS$_NOTSHRIMG, R7 ; | : 
G cr E MOVAB LIBS$GC_INPFDB, R6 : | ; 
0000 0 06 0 9E ( MOVAB LIBSSIGNAL, R5 : | ; 
6 cr 3 1 MOVAB LIBSAL RAB, R4 : ; 
03 00006 CF = 5 5 1A BBS a. LIBSGL’CTLMSK, 1$ + 1288 ; 
38 AG 1 D 3 18: MOVL #1, LIBSAL_RAB+56 : 129 ; 
20 Ad 0200 &F a 90 MOVW #512, LIBSAL_RAB+32 7% 34 | ; 
4 DD D PUSHL R4 + 1294 ; 
000000006 00 gi FB 00 F CALLS #1, SYS$READ : : 
14 0 €E8 00036 BLBS STATUS, 2$ : : 
0c A& DD 88 9 PUSHL Stith *RAB+12 3 3 
50 0D C PUSHL STAT : ; 
7E 66 10 ¢1 000 : ADDL #16, LIBSGL_INPFDB, -(SP) : : 
01 DD 0004 PUSHL #1 : ; 
00861082 8F DD 00044 PUSHL #8786 ; ; 
65 0S FB OO04A CALLS # OTBSSIGNA L : ; 
0200 &F 22 AG BI 90040 2$ CMPW = LIBSAL_RAB+34, #512 + 1296 | : 
51 a $2 86 Sones SOV, LIBSAL_RAB#36, AI ? 1299 : 
02 11 Al 91 90059 CMPB Tai he Fite. : 1301 ; 
5¢ 12 00050 BNEQ 4$ : ; 
3230 BF 0c Al 61 0005F CMPW = s«12(R1), #12848 : 1302 ; 
54 12 00065 BNEQ $ : ; 
3530 BF OE Al B1 00067 CMPW =s«14(R1), #13616 + 1303 ; 
4C 1A 0006D BGTRU 4$ : ; 
50 08 Al 3C 0006F MOVZWL 8(R1), RO + 1304 : 
50 2¢ (CO 00073 ADDL2 #44, RO : ; 
000000A8 BF 50 D1 00076 PL RO, #168 + 1306 ; 
04 1€ 0007D GEQU 3$ ; 
50 AS 8F 9A 0007F MOVZBL #168, RO : 
50 61 10 00 ED 00083 3$ P2vV. #0, #16, (R1), RO + 1304 
31 1A 00088 BGTRU 4$ ; 
50 10 Al 9A OO08A MOVZBL 16(R1), HDRBLKCNT : 1308 
50 D7 O0008E DECL  HDRBLKCNT : 
29 19 00090 BLSS 4$ ; 
53 04 Al 3C 00092 MOVZWL 4(R1), SYMDSC : 1309 
53 51 c0 90096 ADDL2. R1, SYMDSC ; 
52 61 3¢ 00099 MOVZWL eri) R : 1310 
3g 51 CO 0009C ADDL2. R1, R2 : 
q 53 D1 0009F CMPL  SYMDSC, R2 : 
17 1€ O00A2 BGEQU 4$ ; 
03 OA A3 Bi OOOAG CMPW =s-:« TO SYMDSC), #3 > 1311 
11 1F OO00A8 BLSSU 4$ ; 
50 0g CO OOOAA ADDL2 #2 ; 1313) 
50 04 A’ 01 OOOAD CMPL eCeveosc), RO ; 
08 18 00081 BLEQU 4$ : 
0000" CF 24 Al dO 0085 MOVL 36(R1), SHRGSMATCH : 1315 | 
OF 11 0008 BRB % : 
7E 66 10 C1 000BB 4$ ADDL3 #16, LIBSGL_INPFDB, -(SP) : 1318 | 
g4 DD 000BF PUSHL #1 ; 
7 DD 000C1 PUSHL 7 : | 
65 03 FB 00¢3 CALLS #3, LIBSSIGNAL ; 
50 5 i O0¢6 HOVL R7. RO : 1319) 
1E AG 02 0 BOEA 5$ MOVB #2, LIBSAL_RAB+30 : 1333 
10 AG 04 A3 00 OOOCE MOVL 4(SYMDSC), ~"LIBSAL_RAB+16 3 1322 | 


nn 


7 

12 

LIB_INPUTOBJ 16-Sep-1984 01:57:57 AX=-11 Bliss-32 V4.0-74 Page 10) 

Lbe=b00 L1B-INPUT_OBJ 13-80 8-18e Pe eH LIBRAR. SRC TapuY OB 35:1 ° Aid 

25 13 000D BEQL «=s7$ ; | 

8 BS Soop ER acne cater : 1336. 

000000006 90 1 £8 QOODA CALLS #1. SYSSF IND : 
9 E £1 BLBS STATUS, 6 : 

DD OO0E4 PUSHL  # ; 
9 DD E PUSHL STATUS : 

7E 66 10 £1 QO0E ADDL at  JBSGL_INPFDB, -(SP) : | 
00861082 af DD OOOE PUSHL #8786 ; 

5 4 FB F CALLS #4, LIBSSIGNAL : 

16 AG OY F5 6$: CLRB BSAL_RAB+30 + 1327 

13 11 OOOF BRB ; 13 Q 

7E 66 10 C1 OOOFA 7$: ADDL3 #16, LIBSGL_INPFDB, ~(SP) 31 

1 DD OFF PUSHL #1 : 
000000006 8F DD 001 PUSHL #LIB$_NOSYMBOLS ; 

$3 $i 6B 199 Sout a. or. + 1331 
be 10¢ RET ; 

0000v ct 0 FB 0010D 8$: CALLS #0, PROFILE + 1334 
é 9 D O12 MOVL RO, STATUS ; 

0 £8 0011 BLBS STATUS, 9$ + 1335 

f D4 00118 CLRL = = (SP) : 1336 
0000v cf : FB O11A CALLS #1, FINISH_OBJECT ; 

0 2 00 OO11F 9S: MOVL STATUS, RO + 1337 

04 00122 RET : 1338 


; Routine Size: 291 bytes, Routine Base: S$CODE$ + 0000 


<r 
wn 


12 
L1B_JNPUTOB, 18-45-1986 01:57:57 VAKe11 BLiss-32 VS. 2 
Lbe=d00 profile 1e-ee= 488s 93:82:38, «| He NeaAR de siabuy das 683.1 age 


ZSBTTL ‘profile’; 
ROUTINE profile = 
GIN 


uw 


- 
Wwr—Ow/f 


Read and process all required object module records of the file just opened 
that is, keep reading records to end of file. 


ee’) 
oO m 
oO 


L 
status; 


modnaming = 0; 'Zero module name 
epaulerts (rfa$l _vbn) = 0; 'Clear VBN 
mhdseen = false;” 

lnmseen = re! 


currectyp = 'Init record to end of module type 
glo obtis PE ¥: ae con: £03: iInit globals listhead “ 
toblis Sef ioe tas 0); 
elist 9 delist £83: 
delist = delist (0); 
edatten s = 0; ! Zero module flags 


WMILE (status - “get_ record (recdesc)) NEQ rms$_ eof ! While there are more records 


Lib$gl_recount = .lLib$gl_recount + 1; ' Count the record 
IF .reting GTRU smaxrec lng i And if its Length is illegal 


1 
1 
1 
| 
| 
| 
| 
4 THEN BEGI 
4 SIGNAL (Lib$_recing, 3, srecing. : then pt ee the error and give up on this file 
4 modnam ng, Lib$gl_inpfdb Cfdb$l_namdesc]); 
4 RETURN Lib$_recing; 
END; 

| 
; | 
4 
4 | 
4 
4 | 
5 | 
fe 
4 
5 
4 
4 
4 
3 
4 
4 
4 
| 


DDD DADA AAA MIU & 


IAW 


lastrectyp_ = .currecty YPi ' Copy old ay tee to last type 
currectyp = .objrec Cobj$b_ rectyeii ! And. get new 
ager restep LSSU .recdispatch 4) ! Check it is (2Bst and if 


BEGIN 


AA ANAN 


RAD UR LO OO UME APM AOD wahoo ee Se ea a ee 


If a duplicate module is being processed then ignore record 


unless it is a new module header record. 


' 
i 
i 
i 
iF (NOT .-dupseen) 
perform ((.recdispatch C.currectyp]) ()); ! So dispatch to record specific routine 
A eas AND (. currectyp EQL 3) 
dupseen = false; 
EN 
SE 
BE 


IN 

SIGNAL (Lib$_rectyp, 3, -cyrrechye 'If unknown, gion al and ive up 
modnaming, Lib$gi_inpfdb [fd dbs -namdescJ); 

oe Lib$S_rectyp; 


IF Libi gt ct lmsk Cl ibsv piprstb] 
AND gurcegtye E6 06j$c_eom 
THEN EXITLOO 


Ba Se Oe Se Se Se Be Se Se Se Se Se Ge Fe Se Fe Ge Se Se Ge Fe Se Se Ge Fe He Be Se Be Se Se Fe Se Se Fe Ge Se Se Se FH Se Ge Se Se Ge Se Ge Se Oe Se ee GH Ss Se Se Ge ae 

ec ee ee ee ee a ee ed ed sd wd 
™ 

MEUM 20 ODNA VE WD 0 ODNOU EWN (0 OD NO NE WWIN OO ONO EW ODODE 


WWAAAAIAI AAI AAI AWWA AAAIAA AW 


CD00 00 OWDOOODOOOO NNN NNN 


Www 
oo 


tebe 


39 
40 
4) 


4 
a8 
44 
45 
6 


04 


D 12 
16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 Page 12) 
12-388748 4 9b 3b OG LIBRAR.SRCJINPUTOBJ.B32;1 ° (4) | 
END; ! Of records loop 
then eecrety NEQ obj$c_eom ! ALL done, did we end with eom? 
SIGNAL (Lib$S_noeom, 2, modnaming, Lib$gl_inpfdb Cfdb$l_namdesc]); !no, signal and return 
RETURN (DS foeon; 8 v. - 8 
RETURN true ! Finally return after no more 
END; ! Of Lib _input_obj 
O1FC 00000 PROFILE:.WORD Save R2,R3,R4,R5,R6,R7,RB : 1341 
eR 90006 : 9 0000¢ MOVAB LIBSGL_INPFDB, R& : 
57 000000006 8F D0 0000 MOVL  #LIB$_ROEOM, R7 : 
26 0000000G 8F DO 9000 MOVL  M#LIBS-RECTYP, R6 : 
00000006 8F DO 0001 MOVL #LIBS-RECLNG, R5 : 
54 000000006 00 9€ 9901¢ MOVAB LIBSSIGNAL, R4 : 
53 0000° CF 9E 0002 MOVAB CURRECTYP, : 
08 A3 94 00028 CLRB § MODNAMLNG : 1352 
28 AS D4 00028 CLRL § MODULERFA : 1353 
EO A3 7C OO02E CLROQ HDSEE + 1354 
63 03 D0 00031 MOVL #3, CU : 1356 
68 AS 68 A3 YE 00034 MOVAB GLOBLIST, GLOBLIST : 1357 
6C AS 68 A3 9E 00039 MOVAB GLOBLIST, GLOBLIST+4 : 1358 
70 «=A3 70 AS 9E 00036 MOVAB ODELIST, DELIST : 1359 
74 «AS 70 A3 YE 0004 MOVAB ODELIST, DELIST+4 : 1360 
44 a3 94 00048 CLRB  MODULEFLAGS : 1361 
F4 AS OF 00048 18 PUSHAB RECDESC : 1362 
00006 CF gi FB 00046 CALLS #1, GET_RECORD : 
52 0 00 9005 MOVL RO, STATUS : 
0001827A_ = BF 52 D1 00056 CMPL STATUS, #98938 ; 
75 13 0005p BEQL : 
00006 CF 06 0005F INCL  LIBSGL_RECOUNT : 1364 
A3 10 00 ED 00063 CMPZV #0, #16, RECLNG, MAXRECLNG 3 1365 
16 1B O006A BLEQ : 
7E 68 1 1 006¢ ADDL3 #16, LIBSGL_INPFDB, -(SP) : 1368 
08 A3 9F 000 PUSHAB MODNAMLNG : 1367 
7E F4 AS 38C 9007 MOVZWL RECLNG, =(SP) : 1368 
g DD 0007 PUSHL # ; 
5 DD 00079 PUSHL R5 : 
64 03 FB 0078 CALLS #5, LIBSSIGNAL ; 
50 5 B0 oor MOVL R5, RO : 136 
FC a3 63 pO 0082 28: MOVL CURRECTYP, LASTRECTYP : 137 
6 FB 8 A 00086 MOVZBL @OBJREC, CURRECTYP : 137 
50 $ DO 0008A MOVL CURRECTYP : 137 
0000° CF 0 D1 0008D CMPL RO, RECDISPATCH=4 : 
- 7 009¢ BGEQU 4$ ; 
10 FS ASE 009 LBS § DUPSEEN, 3$ F 1380 
5 0000'cF40 00 00098 OVL § RECDISPATCHCROJ, RO : 1382 
60 Q FB 0 Hi CALLS (RO) : 
4A . 9 A BLBC = STATUS, 198 ; 
IE EB A3 €E9 OO00A4 BLBC DUPSEEN, 5$ : 1383. 
0 63 D1 O00A8 3S: CMPL CURRECTYP, #3 ; 
19 12 OO00AB BNEQ $ : 


<r 


veg 


; Routine Size: 


profile 


7E 


03 


7E 


239 bytes, 


68 


0000G CF 


Routine Base: 


08 


oO 
oo 


~~" 

~~" 
oOo MOWUO PH] OVO NO WMNOWOWI'P——>P 
|= NENIWWONWOWNOU PUOWOWOLlW 
oTvoo 799 ON 9 -TWMoOo NOC TCON-9 
SOLOS FW | OL ODT TO 7 


SCODES + 0123 


b-Fep-1964 PET SEHA AX-11 Bliss-32 V4.0-74 


= 
wn 
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Owwwzsov 
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MMMMMMMoOCOCVVOOOOOWWVWVIwIIq> 


4 LIBRAR.SRCJINPUTOBJ .B32;1 
PSEEN 
#16, LIBSGL_INPFDB, -(SP) 
MODNAMLNG 


is 
#5, roe 
R6, R 


#5, LIBSGL_CTLMSK, 7$ 
CURRECTYP, #3 

we #3 

ATT leah -(SP) 


R 
#4, LIBSSIGNAL 
R7, RO 


#1, RO 


De Se Se Se Se Se Be Be Ge Be Se Se Be Se Se Se Se Ge Se Ge Be Se Be Be Ge 


. 
2 
7 
o 
. 
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. 
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. 
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. 
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. 
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vi 


Lj _juputoss p 1386 91:32:37 AX-11 Bliss-32 V4.0-74 Page 


1 1 
prohdr 1 LIBRAR.SRCJINPUTOBJ.B32;1 (5 


; prohdr'; : 
4 14 1 ZSBTTL ' hdr’ 

6 12 3 : ROUTINE prohd | 

; prohdr = ; 

; 5 1497 BEGIN : 

; 38 1209 +4 ; 

3 4 1410 : process module header records as follows: : 

s 6302 1411 ! (1) validate sequence : 

; 356 \eig ! (¢ ignore all but main module headers : 

3 Sor 141 ! (3) verify structure level is less than : 

; 358 1414 : or equal to obj$c_strivl : 

: 3559 1415 ‘ (4) verify maximum record Length : 

; 360 1218 ! parameter is less than or equal to | ; 

; 361 141 ' obj$c_maxrecsiz : 

; 6¢ 1418 : (5) record maximum record length parameter ; 

; 3 1419 : for checking subsequent records | ; 

; 364 1420 : (6) check module title > 0 and less than or : 

; 365 1421 ' equal to sym$c_maxing characters . 

; 366 14 § : (7) copy the module title : 

3; 367 14 ed 3 

; 368 1424 ! : 

; 369 1425 LOCAL : 

; 4 1? § txtrfa : BBLOCK (rfa$c_length]; | : 

: ue 1428 BIN 3 

3 7 1 2 modidstring = objrec Cmhd$t_name] + .objrec Cmhd$b_namlng] : VECTOR C,BYTE); | ; 

: 375 123) § perform (segchk ()):; | ; 

; 376 \oe6 § F .objrec Lobj$b_subtyp] NEQ obj$c_hdr_mhd !Ignore all headers except main header : 

; er 143 THEN IF NOT .L bsg ct msk Clib$v_sfirstbJ ; 

; 378 1434 § THEN RETURN copyrec () 'Just copy them 3 

; 44 bg ELSE RETURN true; : 

: $3 1437 i rec Cmhd$b_strivl] GTRU obj$c_strivl ! Compare its obj format : 

; 388 1439 SIGNAL (Lib$_strivl, 3, .objrec Cmhd$b_strivlJ, modnaming, : 

; «384 1440 Tib$gl_inpfdb Cfdb$l_namdescJ); 3 

; 38 red 3 yay Lib$_strivl; | 

3 44 1448 J inearocing = .objrec Cmhd$w_recsiz]) GTRU obj$c_maxrecsiz ! Compare max with max allowed | 

3 389 1445 SIGNAL (Lib$_recing, 3, .maxrecing, modnaming, 

; 390 1446 Tib$gl_inpfdb Cfdb$l_namdescJ); | 

3 BS et 3 ge Lib$_recing; 

3 38 1449 IF .objrec (mhd$b_naming] GIRU .Lib$gl_keysize ' Check module name is within Legal 

3 335 1639 Pate ree mhd$b_naming] EQL 0 ' Length range 

; 396 1326 SIGNAL (Lib$_modnaming, 3, gb) rec Cmhd$b_naming], .objrec Cmhd$b_naming], 

: 397 145 ib$gl_inpfdb Cfdb$l_namdesc]); 

3 38 138 3 Lib$S_modnamTng; 

; 400 1638 modnaming = .objrec Cmhd$b_naming)]; | ‘Copy tongtt of module name | 

: 401 145 CHSMOVE (objec andsb_naningd. objrec Cmhd$t_name], modulename) ; | 

3 $86 1458 IF .lib$Sgl_ctlmsk Clib$Sv_shrst 

; 40 1459 THEN BEGIN 

3 404 1460 idling = 4; 'GS4MATCH is 4 bytes long 


Ye 


prohdr 


>ow 


DAMA 


0000Vv 


—AAO—M NOOO 


on 


wu 
oO 


03 0000G CF 


- enggemhennes- eer 


ELSE 8 
ite "s gin (sym$ 
CHSMOVE (.modidstr 
END. ED 
ng; 
erform (lbr$set_tndex (Lib$q i Libett Lib$gl_objmodix) 
‘ Tibs_ * , Libsgt_li iB 
replacing = 
7 Siete? _replace) 
2 
2 
1 


12 
18-Sep-19 AX=-11 BLiss-32 V4.0-7 
akties rie a a ee oh pe 


'Copy the GSMATCH into module header data 


ie maxing, ene Med ay 0]); 
Ag (OJ, modidstring £1], moduleid); 


fdb tdb$l _hamdesc)); 


! initialize rfa 
itf in library already 
'If replace 


Find globals that belong with old 


moduledesc, oldmodr fa) 


Lor$search havo oe Libetl, Lib$Sgl_objgsdix, oldmodrfa, delsym); 


'Set for proeom 


meer reuse. Lib$gl inpfdb Cfdb$l_namdesc], 
Lib$gl_libfdb Cfdb$l‘namdesc]); 


'Copy record to Library 


; 405 14 

3; 4 14 

: rh 14 

; 408 1464 

; 409 1465 

; 410 1098 

: «411 146 moduledesc (Cdsc$w Length) = 

: tig P 1998 

: 61 138 ndexerr, 1 
>; 416 1470 708° 

: 419 147) operation = (3 inserted; 

: 419 1258 owee TU, (0, rfa$c_length, oldmodrfa); 
: 418 1474 2 IF Lbr$ Lookup. key (Lib$gl_Libctl, 
; $32 1202 THEN IF .LibSgl_ctims 

; 421 1299 Key in index, and replacing. 

s & ¢ 1478 i module and put on List. 

; 4&4 1479 i 

3; 424 1480 THEN BEGIN 

; 425 1481 

: $58 1086 replacing = 

: 427 148 ° eration = {ibs replaced; 
: 428 1484 END 

; $92 1485 ELSE BEGIN 

: 430 1486 SIGNAL (Lib$_dupmodule, 3 
3; 431 1487 

3 $a6 1488 dupseen = true; 

3; 43 1489 RETURN true; 

: 434 1490 END; 
EBS 8 pertorm teonyree 01: 

3 perform (copyrec 

3; 437 1498 

; 438 1494 RE — true 

; 439 1495 END 


! OF prohdr 


OFFC 00000 PROHDR: .WORD Save R2 RS. Rs, R5,R6,R7,RB,RI,R10,R11 
00006 8F DO 9002 MOVL #LIBS_RECLNG, R11 
006 8F pO 000 MOVL #LIB$~ eratye. R10 
006 F 9E 9019 MOVAB LIBS$GC_INPFDB, R9 
06 0 9E 0001 MOVAB LIBSSIGNAL , Rb 
000° CF 9 001C MOV ae R 
08 C2 00021 SUBL2 #8, SP 
6 D 0024 MOVL posnec. R1 
Al 9A 00027 MOVZBL 5(R1) RO 
06 A140 9E 000 OVAB. 6(R1)EROI, R6 
9° fe 3 CALLS #0, SEQCHK 
F BLBS STATUS, 1$ 
4 0 RET 
67 p MOVL §§ OBJREC, RO 
01 AO 0 f: TSTB =: 1(RO) 
OF 13 0003F BEQL 46s 3$ 
5 €1 00041 BBC #5, LIBSGL_CTLMSK, 2$ 


H 12 
L18_INPUTOBJ 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 P | 
1 Oe=000 prohdr 19-308- 1382 9b 3bi04 LIBRAR.SRC TNPUY OB) 635; 1 7 aid 
0156 31 00047 BRW 14$ ; : 
0000v CF 36 fe aA 2$: CALLS #0, COPYREC : 1434 ; 
50 67 p 20 3$: MOVL JREC, RO + 1437 ; 
02 AO 8 TSTB (RO) : : 
1 1 096 BEQL 4$ : ; 
7E 69 1 gi 0 ADDL3. #16, LIBSGL_INPFDB, =(SP) + 1440 ; 
10 A? OF O9¢ PUSHAB MODNAMLN + 1439 : 
7E 02 AQ 9A 0005F MOVZBL 2(RO), =(SP) + 1440 ; 
9 DD 9063 PUSHL #3 : ; 
A DD 0006 PUSHL R10 : ; 
68 95 FB 0067 CALLS #5, LIBSSIGNAL : | ; 
A DO 0006A MOVL R10, RO + 1441 F 
04 00060 RET : : 
50 67 b0 O06 4$: MOVL QBUREC, RO + 1443 ; 
50 03 Ad 3¢ 00071 MOVZWL 3(RO), R : : 
0c A? 20 DO 00075 OVL RO, WAXRECLNG : ; 
0800 8F é B1 00079 CMPW = soRO, «#204 : : 
15 1B O007E BLEQ : ; 
7E 69 10 1 000 ADDL3. #16, LIBSGL_INPFDB, -(SP) + 1446 ; 
10 A? OF 90084 PUSHAB MODNAMLNG + 1445 
0c A7 DD 00087 PUSHL MAXRECLNG : 1446 
03 DD OO008A PUSHL #3 ; 
5B DD 0008C PUSHL R11 F 
68 05 FB OO08E CALLS #5, LIBSSIGNAL ; 
50 5B DO 00091 MOVL R11, RO + 1447 | 
04 90094 RET ; 
50 67 DO 00095 5s: MOVL OBJREC, RO + 1449 
05 ad 08 00 €E5 00098 CMPZV #0, #8. 5(RO), LIBSGL_KEYSIZE ; 
05 1A OO0A0 BGTRU : 
05 Aad 95 000A2 TSTB = § (RO) : 1450 
1E 12 900A BNEQ : 
7E 69 10 C1 OOOA7 6$: ADDL3 #16, LIBSGL_INPFDB, -(SP) + 1453 
7E 05 Aad 9A 000AB MOVZBL 5(RO), -(SPY ; 
05 AO 9F OOOAF PUSHAB 5(RO) + 145 
03 DD 000B2 PUSHL #3 > 145 
000000006 BF DD 000B4 PUSH #LiBs MODNAMLNG : 
68 05 FB OOBA CALLS #5, LIBSSIGNAL 3 
50 000000006 &F B0 sages HOVL #LIBS_MODNAMLNG, RO + 1454 
50 67 p0 00C5 7$: MOVL QBUREC, RO : 1456 | 
10 A? 05 ad 90 000C8 MOVB (RO), MODNAMLNG : 
51 05 ad 9A 000CD MOVZBL 5(RO). R1 + 1457 | 
11. A? 06 AO 51 28 9001 MOVC3  R1, 6(RO), MODULENAME : 
0B 00006 CF 05 f 07 BBC . #5, LIBSGL_CTLMSK, 8$ > 1458 | 
4D AZ 4 90 00000 MOVB #4. IDLNG + 1460 | 
4E AZ EO AZ 00 O00E1 MOVL | SHRGSMATCH, MODULEID + 1461 
18 11 OOEG BRB 10 : 1458 
50 $6 9A OE 8$: MOVZBL (R6), RO > 1466 | 
iF 0 91 OOOEB CMPB RO, #31 ; 
03 1B OQOE BLEQU : 
50 1F 0 900F MOVL «#31, RO | 
4D AZ 50 90 O00F3 9S: MOVE RO, IDLNG ; 
50 : A OF mOVZBL (R6), RO > 1465 
4E AT 01 AG 8 OOOFA MOVC3 RO, 1(R6), MODULEID : 
44 =«O«*OA 10 A B 190 108: MOVZ7BW MODNAMLNG, MODULEDESC : 1467 
0000G CF 9F 001 PUSHAB LIB$GL_OBJMODIX : ooad 


420 bytes, 


3; Routine Size: 


000000006 


7E 00006 


E4 
00 


000000006 
24 00006 


000000006 
40 
E4 
7E 00006 
7E 


FO 
0000Vv 
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SOSCSSSCSSOOSOSOSOSOOOOOOCOSOSOOOOSOOOSOSOOOOOOOSOOO 


pe fe lejelejelelolelelelelolelelololelelolololelelololeolololololo lolol ole lolo) 
a 


> SSSssesecTs 
WOVI@OArw"OnlroO 


Routine SCODES + 0212 


Be 12:38:06 


PUSHAB ite 1967 
CALLS Ler 


SH sft. INDEX 


STA AT US’ 
Abe LIBSGL_LIBFDB, -(SP) 


M188 INDEXERR 
LIGSSIGN NAL 


REPL ACING 
# 1B INSERTED, OPERATION 
#0, (SP), #0, #6, OLDMODRFA 


OLDMODRFA 
nett het RT 


BSG 
53° BRSLOOKUP_ KEY 
Seistnne CTLMSK+1, 12$ 


LDMODRF 
iBset “OB6SD1X 
IBS$GL~ 

#4, 1 CBRSSEAR RCH 

#1. REPLACING 
mies. REPLACED, OPERATION 


Ate LIBSGL_LIBFDB, -(SP) 
#6. LIB L1BS6L_ INPFDB, -(SP) 


2 2Zzz 
wo 


ad try the 
’ LTGSS16NA 
#1 PSEEN 


14 

#0, COPYREC 
STATUS, 15$ 

i. RO’ 


AX-11 Bliss-32 V4.0-74 
LIBRAR.SRCJINPUTOBJ .832; 
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Sete Se Se Se Be Se Be Be Ge Ge Se Be Ge Be Se Fe Ge Ge Fe Fe Ge Se Fe Se Se Fe Fe Ge Fe Se Se Be Se Se Be Be Se 


12 
LARA|NPUTOBS WB-Sep-1984 01:57:57 YAR=I1 BL iegc32 40-742 | 


: te) 1238 ! ZSBTTL ‘delsym'; 

: 46 1498 1 ROUTINE delsym (keydesc) = 

a oe i 

: 44 1 $f This routine is called by LBRSSEARCH for all globals that are in the module 
: 44 1 8 i about to be replaced. The names will be put on delist which will be scanned 
3; 4468 1 H by prosymbol. 

; ret i 5 hap 

; 491 1506 keydesc : REF BBLOCK; 

: rk 1308 LOCAL 

3 t2¢ 1310 keynb : REF BBLOCK; 

: 45 1511 erform (Lib_get_mem (LnbSc fixedsize + .keydesc Cdsc$w_length], keynb)); 

; 139 131¢ Cope p binbse. Roath J = .keydesc Cdsc$w “Lengthi; . , 

; 458 151 corre aS b$b_flags] = 

3; 459 1514 VE (.keydesc dsc$w tengthd, -keydesc Cdsc$a_pointer], keynb Clnb$t_name)); 
: 460 1515 INSQUE (.keynb, “delist [1)); 

; 461 1219 RETURN true 

; 462 151 1 END; 'Of delsym 


007C 00000 DELSYM: .WORD Save R2,R3,R4,R5,R6 
SE 04 C2 00002 SUBL2 #4, SP 
5E DD 0000 PUSHL S$ 
52 04 ry: 0 0007 MOVL PE LPESC, R2 
7E 6 C 00008 MOVZWL (RB) -(sP) 
6E A CO 0000¢ ADDL2 #10, (SP) 
00006 CF 08 FB 001 CALLS #2 1B. GET_MEM 
18 E9 00016 BLBC STATUS, ~1$ ~ 
56 6 be 0019 MOVL eEYN” 
09 Ab 62 9 901¢ MOVB (R2), 9(R 
08 A6 94 000 CLRB_ -B(R6S 
OA A6 04 B2 6 es 00 MOVC3. (R2), a4 (R2) 10(R6) 
0000" oF 66 : 00 INSQUE (R6), @DELIST+4 
50 01 p 002E OVL #1, RO 
4 00031 1$: RET 


; Routine Size: 50 bytes, Routine Base: S$CODE$ + 0386 


Be Se Se Se Se Ge Se Se Ge Se Be Se Be Be Se 


K 12 
L1IB_INPUTOBJ 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 Page 19 
007000 protir 12-3001 3be 8a ibe LIBRAR.SRCJINPUTOBY .832;1 . (7) 
: 464 1518 1 2SBTTL ‘protir'; 
465 1318 , 
: 668 1520 1 ROUTINE protir = 
3 ret ! 1 BEGIN 
: 469 1 : i This routine processes TIR records. The OBJTIR flag is set in 
; ety 13 ¢ } the module flags byte and the record is copied. 
: 47 1 $ moduleflags = mhd$m_objtir; 
; 47 15 RETURN prorec () 
: 476 1528 D; ! Of protir 


0000 00000 PROTIR: .WORD Save necetos : 1520 

0000° CF 02 90 BO ORs MOVB #2, MODULEFLAGS : 1526 
0000v CF 00 FB 0000 CALLS #0, PPROREC 3 1527 
04 0000C RET 3: 1528 


; Routine Size: 13 bytes, Routine Base: $CODES + 03E8 
| 


12 
LIB_INPUTOBJ 16-Se 1984 01:57:57 AX-11 Bliss-32 V4.0-74 P 0 
vou=000 progsd 14 ety 7 9:38 ibc LIBRAR. SRC]INPUTOBJ .B3 31 oon ) 


: 47 1529 1 ZSBTTL ‘progsd'; ‘ 
| 3 183) 1 ROUTINE d | 
; progsd = ; 
; 47 1 ¢ BEGIN . ; 
; 480 1 : ‘ 
: 48) 1534 '+4 : 
; 48 1535 ; Verify GSD records and disgarch on the sub-types: ‘ 
; 48 1 $ } (0) P=SECTION definition ‘ 
3; 484 15 ‘ (1) Symbol definition/reference ‘ 
; «485 13 8 ! (¢ Entry point definition ‘ 
; 486 1539 : (3) Procedure declaration ‘ 
; 487 1309 : (4) Symbol definition with word psect : 
; 4 1541 ! (5) Entry point definiton with word psect ‘ 
; 489 1206 ! $8 Procedure ger tation with word psect ‘ 
; 490 154 : (7) Random entity check ‘ 
; «491 1544 ! (8) Environment definition : 
: 49 1545 ! (9) Local symbol definition/reference : 
; 49 1266 ' (10) Local symbol entry point definition $ 
; 494 154 ! (11) Local prone procedure definition ; 
3; «64495 1548 ! (12) Shareable image psect definition 
; 496 1549 ‘ 
: 497 1550 leo 
: 498 1551 ! 

i: 699 1552 RIND 
; 300 1553 2 gsddispatch = PLIT ( ! index structure name | 
; 501 1554 2 propsectdef, ' gsd_psc gps 
; 1555 2 symbols, ! gsd_sym gsy$, srf$, sdf$ 
; 50 1556 § entpnts ! gsd_epm 
3; 504 1557 procedef, ! gsd_pro pro$, fml$, arg$ | 
: 505 1558 : symbols, i gsd-symw sdtw$ 
; 506 1559 pro_epmw, ! gsd_epmw 
; 507 1560 2 procedef, ! gsd_prow 
; 508 1561 2 pro_idc, ! gsd_idc 
; 509 1386 § pro_env, ! gsd_env 
; 510 156 pro_lsy, ' gsd_lsy 
3 $V 1564 2 pro_lepm, ' gsd_lepm 
s Siz 1565 2 pro_lpro, ! gsd_lpro 
3 Bie 1566 2 ro_spsc ! gsd_spsc sgps$ 
g 316 1567 : VECTOR; 
; 515 1568 2! | 
; 516 1569 LOCAL 
; 517 1570 gsdtype; 
; 219 1393 f ( hk ()) 
: erform (seqc : 
; 520 1358 gsdoffset = Obj$c_subtyp; 
3 Sey 1574 : 
3 256 1575 WHILE .gsdoffset LSSU .reclng DO 
; i 1576 BEGIN 
: 524 1577 IF ¢ gees pe = .objvec C.gsdoffset]) GEQU .gsddispatch ([-1] 
s tee 1578 4 THEN BEGI 
; 526 1579 4 SIGNAL (Libs_asdtyp. 3 mognening. 
; 52? 1580 4 LibSgl_inpfdb Cfdb$t_namdesc], .gsdtype); | 
: 528 1581 4 RETURN Lib$_gsdtyp; 
3 269 1386 4 END 
; 33 13a : — f (( ddispatch C.gsdtype]) ()) 
3 erform -gs ch C. y : 
; 532 1585 2 END;? . 


12 
L1B_INPUTOBJ 16-Sep-1984 01:57:57 VAK=11 Bliss-32 v4.0-742 e 1 
Lbe=d00 eee ae oets ie  oe a d ptan aoe 6} | 


=~ 


; 3 : 
5 4 1387 If NOT . a {otal ctlmsk Clipse shrstb] ; 
; 5 THE copyrec | 3 
; $ 1390 Use RETURN true; : 
s 338 159 END; ! Of progsd : 
i o 
; 
-PSECT $PLIT$,NOWRT,NOEXE,2 : 
90000000 0060 «LONG 13 ; | ; 
00000000v 00000000v 00000000v 00000000v 00000000v 00000000v 0064 P.AAG: “ADDRESS PROPSECTDEF , SYMBOLS, ENTPNTS. oPROCEDEF. -; : 
00000000v 00000000v 00000000v 00000000v 00000000v 9,00000y 007¢ SYMBOLS, PRO_EPMW, PROCEDEF, PRO IDC, : | : 
000000v 00094 PRO_ENV, PRO-LSY, PRO_LEPM, PRO _CPRO; : ; 
PRO_SPSC ; | : 
GSDDISPATCH= P.AAG | ; 
.PSECT $CODE$,NOWRT,2 
001C 00000 PROGSD: .WORD Save R2,R3,R : 1531 
54 000000006 8F DO 00002 MOVL #LIBS eet aane R4 : 
53 0000' CF 9€ 00009 MOVAB GSDOFFSET, R3 ; 
0000v CF 00 FB 90005 CALLS 40, SEOEHK + 1572 
30 50 €9 0001 BLBC = STATUS, 5 F 
6 01 DO 00016 MOVL #1, GSDOFFSET + 1573 
63 08 a3 10 00 ED 00019 1$ CMPZ2V #0, #16, RECLNG, GSDOFFSET > 1575 
3 1B 0001F BLEQU 3$ : 
50 Oc a3 63 C1 00021 ADDL GSDOFFSET OBJVEC, RO + 1577 
52 60 9A 90026 MOVZBL (RO), F 
0000" CF 52 D1 00029 CMPL GSDTYPES OESDDISPATCH=4 ; 
1A 1F 000 E BLSSU 28 ; : 
52 DD 000 PUSHL  GSDTYPE : 1580 
7E 00006 CF 19 C1 000 2 ADDL3 #16, sGiBscu INPFDB, -(SP) ; 
1¢ =A3 9F 0003 PUSHAB en : 1579 ; 
03 DD 00038 PUSHL : 1580 
54 0D 9005p PUSHL : 
000000006 00 05 FB 0003F CALLS aS, LIBSSIGNAL ; 
50 54 D0 00046 MOVL R4. RO : 1581 
04 00049 RET F 
50 0000'CF42 DO O004A 2$ MOVL GSDD1SPATCHLGSDTYPE], RO > 1584 
69 99 FB 9090 CALLS #0 : 
C Fs 033 BLBS STATUS. 1$ ; | 
06 00006 CF 05 £0 iE 3$: BBS a5, L1BSGL CTLMSK, 4$ : 1587 
0000V CF 00 FB 9005 CALLS #0. COPYREC : 1588 
04 0006 RET : 1589 
50 01 Bd 9006 4$: MOVL , RO ; 
4 00066 5$: RET + 1591 


; Routine Size: 103 bytes, Routine Base: S$CODE$S + 03F5 


N 12 | 

LIB_INPUTOBJ 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 P 

Oe=000 propsectdef 1e-808= 1382 9533504 LIBRAR.SRCJINPUTOBJ .B32;1 sy te 

1593 1 XSBITL ‘propsectdeft'; 

i ROUTINE propsectdef = 
BEGIN 


SUSI 


PAAPEXQEDNMAMMANNMNS SS & EPL PEPE 


psctdef = objvec C.gsdoffset] : BBLOCK; 
Length; 
First check for legal P-section name and alignment 


ir -psctdef fops$b. naming] GTRU sym$c_maxlng ! Check name within the Legal 
Pres eset’ gps$b_naming) EQL 0 i Range for symbol and P-section 
SIGNAL (Libs ~spnaning Se somnesing Lib$Sgl_inpfdb Cfdb$l_namdesc], 
spsctdef Egps$b_ naming 5; 
3 pa Libs _spnaming; 


WR 9 OONOUE WN “OVO GNOUFE WO 


length = athena th + name) - SBYTEOFFSET(gps$t_start) + ! Compute the offset of next GSD 
psct Cops$b_n namingJ; . 

at oe = .gsdoffset + .length ! From Length of this 

END 


PRAARAARAAAAAAA AAA AAA AS MAMAN 
Ne SS S| SQOOOOOCOCOCOCOWOowowvono 


SODWNAUE WN 2 OO ODNAU EWN CODNOUS 


Se ee Se ee FO Se Ge Se SH he Ge FH Se FHSS Se Se Se Se Se ee Se Se Se See Se Seas 


a nD a tn nt es ss sn et nt nt tt 


t+ 
} process P=-section definitions as follows: 
; (0) Check legal p-section name and alignment parameter 
2 
5 
2 
1 


DVI LVPV PVPS SUSU SUSU 


DURA 


! Of propsectdef 


001C 00000 PROPSECTDEF: 
WORD 


‘ Save R2,R3,R 3; 1594 
54 0000" CF 9c 0000 MOVAB GSDOFFSET, Re F 
53 000000006 8F D0 0000 MOVL LIBS _SPNAMLNG, R3 ; 
52 oc AG 64 C1 90005 ADDL3 GSDOFFSET, OBUVEC, R2 + 1603 
1F 08 a2 91 0001 CMPB BcRo), #3i : 1609 
05 1A 00017 BGTRU 1$ ; 
08 A2 95 00019 TSTB = B(R2) + 1610 
1¢ 12 0001C NEQ es ; 
7E 08 A? 9A OOOIE 1$ MOVZBL 8(R2), -(SP) : 1613 | 
7E 00006 CF 1 ci 0 ADDL3. #16, LIBSGL_INPFDB, -(SP) ; 1612, 
1¢ AG SOF 00 PUSHAB MODNAMLNG F 
03 DD 00028 PUSHL @# : | 
DD 0002D PUSHL R ; 
000000006 99 03 FB 00 F CALLS #5, LIBSSIGNAL ; 
5 D MOVL 3. RO > 1614 
04 0039 RET F 
50 08 a2 A OOO3A 2% MOVZBL 8(R2), LENGTH > 1616 
0 Q C0 99 E ADDL2. #9, LENGTH : 
64 0 ¢€O 00041 ADDL? LENGTH, GSDOFFSET + 1618 
50 01 DO 00044 MOVL #1, RO + 1619 
04 00047 RET > 1620 


L Je -jnnutoes 


-Sep-1984 AX-11 Bliss-32 V4.0-74 Pp 4 
1bs3e Sep-1984 9}: 35; bc LIBRAR.SRCJINPUTOBJ. 53351 age 58) 
ZSBTTL ‘symbols’; | 


ROUTINE symbols = 
BEGIN 


LOCAL 


Length; 
BIND ° 


symbolrec = objvec C.gsdoffset] : BBLOCK; 


IF NOT Le gizreetrec Cgsy$v_def) 


me IY 
3 Of 1 § 1 
s $7 1 
: abe 1858 5 1 
; 7 1859 | 
3; Of 16 8 
: 57 16 | 
; oF 1650 
is 6 
; ¢ 18 g THEN B 
3 1634 length = wenraeer out eel one ~pane? - rat be shila Start) + 
3 1635 syab ol A Csr f$b_naming 
; 5 19 $ TF a ctetiheits = sym olrec (srf$b “néalngis ! Point to the symbol string 
; 4 1638 
3 8 1639 ELSE 
: 35 184 IF -objvec C.gsdoftset) Eat bj$c_gsd ! If word 
; -objvec C.gsdoffse obj$c_gsd_symw ! word psect 
531 1642 THEN . _—— | 
3 4 1645 4 BEGIN 
; 1644 & Length = SBYTEOFFSET(sdfwSt_name) - SBYTEOFFSET(sdfwSt_start) + 
3; 594 1645 4 syn bolres Esdfw$b_namingJ; | 
; 595 1008 4 enews = sym olrec CsdfwSb_namingJ; ! Point to the symbol 
; 596 1647 4 
; 597 1648 3 EL 
H 98 1649 4 BEGIN 
; 599 1650 4 length = SOTICET# Set tegres name) - SBYTEOFFSET(sdf$t_start) + 
; 600 1651 4 mbo oo “Esdf$b_namingJ; 
3 o3) 1636 4 symbolstring = asekelias sdf$b_naming); ! Point to the symbol 
: 60 1654 IF NOT .symbolrec Cgsy$v_weak] 
; 604 1655 THEN 
; 605 1656 perform (prosymbol ()); 
3 one 1657 
; 60 1658 gs sdoftset = = sgncettens + .length; ! Update the gsd offset for next 
; 608 1659 as 
3; 609 1660 1 END 'Of symbols 
| 
000C 00009 SYMBOLS:.WORD Save : 1623) 
53 0000' CF 9€ 900¢ MOV Symsor stn RING ; | 
50 08 A3 FC OAS OCT 900 ADDL GSDOE FSET. @ OBsVEC. RO : 1629 
OD 02 A 01 E0 00D BBS : 1632 | 
; 04 AQ A 90012 MOVZBL £cRoS PENGTH > 1634 
03 CO 00016 ADDL2 LEN ; 
6 04 Ad : 001 MOVAB 4cRO) ; SYMBOL STRING ; 1636 
29 1 6 1D BRB > 1632 | 
04 0 91 1F 1% CMPB (RO), #4 3; 1641. 
D 12 00022 BNEQ : 
28 OA AO 9A 00024 MOVZBL 0(RO), LENGTH >; 1644 
0B CO 00028 ADDL2 #11, LENGTH ; 


Be Se Oe Be Se Be Be Se Se we Se BH TH Se Se Se SHS Se SH Ge FH SH Se Be BH Se Se Se SH He Se Se Se Se Se Se Se Se Se Se Se esse Fe eras Se Se Se Se Se Se Se teas 


eee eee a ocilinsitha ee — ~_— 


D 13 

LIB_JNPUTOBJ 16-Sep-1984 AX-11 Bliss-32 v4.0-74 P 
Lbe=b00 syabols easee-} 38s 93:8h:b, «| Hakan cde siabuycad as. age 483 
63 OA a0 if 8 MOVAB ee, SYMBOLSTRING ; 1646 
5 09 ti A 2s: MOVZBL 9(RO), LENGTH + 1650 

OA £0 ADDL2 #10, LENGTH ; 

G2 AE PL SRR se, BRE Sun ypemustein 18 
0000v cf F CALLS #0, PROS YMBOL + 1656 
FC A3 C 48 4$ ADDL2 LENGTH, GSDOFFSET + 1658 
5 : 4C MOVL #1, RO + 1659 
4 OO004F 5$ RET + 1660 


; Routine Size: 80 bytes, Routine Base: SCODE$ + 04A4 
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LIB_INPUTOBJ 1-Se -1984 01:57:57 AX-11 Bliss-32 V4.0-74 
ye 2800 entpnts 14 eet 9:38:64 LIBRAR.SRCJINPUTOBJ .B32;1 


; 611 1661 1 ZSBITL ‘entpnts'; 

3 oig 1906 1 

; 61 1665 1 ROUTINE entpnts = 

; 614 1664 BEGIN 

; 615 1665 ! 

; 218 1998 LOCAL 

3 6) 166 Length; 

; 618 1998 BIND 

; 619 198 symbolrec = objvec C.gsdoffset] : BBLOCK; 

: 85 ert 

3 6 § 1906 Length = SBYTEOFFSET(epm$t_name) - $BYT OFF SE} CogaSt stort? + 

3; 6 167 “eres res epm$b_namingJ; 

> 624 1674 symbolstring = symbolrec Cepm$b_naming]; ! Point to the symbol 
; 625 1675 perform (p-osymbol : 

; 626 1676 sdoffset = .gsdoffset + .length; ! Else update the offset for next 
; 627 1677 ETURN true 

; 628 1678 1 END; ! Of entpnts 


000C 00000 ENTPNTS:.WORD Save R2,R3 
53 0000" CF 9€ 00002 MOV GSDOFFSET, R3 
50 oc AB 63 C1 00007 DDL3 GSDOFFSET, OBJVEC, RO 
52 0B Ad 9A 0000C MOVZBL 11(RO), LENGTH 
52 oc co 90019 ADDL2. #12, LENGTH 
04 A3 0B AO 9SE 0001 MOVAB 11(RO), SYMBOLSTRING 
0000v CF 00 FB 00018 CALLS #0, PROSYMBOL 
06 50 €9 0001D BLBC. STATUS, 
63 52 F0 00020 ADDL2 LENGTH. GSDOFFSET 
50 01 DO 00023 MOVL #1, RO 
04 00026 1$ RET 


; Routine Size: 539 bytes, Routine Base: SCOPES + O4F4 


Bete Se Se Se Se Se Be Se Be Se 


| F 13 | 
LIB_INPUTOBJ 16-Sep-1984 01:57:57 AX=11 Bliss-32 V4.0-74 Pp 7 
voe=000 procedef 132300-1 384 9:88:04 LIBRAR.SRC TNPUYOB) .639; 1 a9 455 


o 
o 


1 1 ROUTINE procedef = 
EGIN 


A procedure definition is an extended entry point definition, cerry ing with 
it a description of the procedure's formal arguments. processing these consists 
in normal symbol definition processing followed by:- 
(1) Validation of the format of formal description (i.e. just check 
that minimum number of arguments specified is less than 
or equal to the maximum. 


—OOONAOUES WN — 


64 


(FP cece ecasesacasae= QD 
o 


AL 

argcount; 
IF .objvec C.gsdoffset] EQL obj$c_gsd_prow 
ies j 9g j$c_gsd_p 


$49 perform (pro_epmw ()) 
perform (entpnts ()); 


BEGIN 
B1 


formals = objvec C.gsdoffset] : BBLOCK; : 
sdoffset = .gsdoffset + fml$c_size; ! Update record pointer 
F or gcoune = .formals Cfml$b_maxargs]) NEQ 0 ! If args. 

i I pa i FROM 1 TO .argcount ! then skip them 


MAA AVIVIVIVIVIUT 


PARA AAAOAAOS 
COWOONOUS WMO 


sdoffset = .gsdoffset + .argdesc Carg$b_bytecnt] + arg$c_size; 
RETURN true 
END; 


Bee Se Se FH Se Be Se Se Os Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Oe Se Se Se Ge SESH Se Se See 
> 
oo 
i a ed ed od od od od 


MRE BEE BR UWIIIInononoUinonononononononononononononn) 
m 
i: 


m 
4 
J 
ee 


ND | 
argdesc = objvec C.gsdoffset] : BBLOCK; | 
' Of procedef | 
| 
| 


000C 00000 PROCEDEF : 
-WORD Save R2,R3 : 1681 
53 0000' CF 9 0000 ROVAB GSDOFFSET, R3 : 
50 Oc AB 63 Ci 0000 ADDL3 GSDOFFSET. OBJVEC, RO > 1695 | 
06 60 91 0000C CMPB =s-s« (RO), - #6 : 
07 12 0000F BNEQ  '1$ : 
0000v CF 00 re 011 CALLS #0, PRO_EPMW ; 1697 
BD AF Q FB 5018 1$: CALLS #0, ENTPNTS : 1699 | 
2D E9 OO0IC 2$: BLBC ATUS, 6$ : 
50 Oc A C1 OF ADDL GSDOFFSET OBJVEC, RO : 1703 
é £0 4 ADDL2 #2, GSDOFF > 1704 
52 01 AO 9A 00027 MOVZBL 1(RO), ARGCOUNT + 1705 
1C iF 028 BEQL 5$ ; 
51 01 pd 0002D MOVL #1, 1 : 1706 | 


783351 


AX-11 wt Pe V4.0-74 
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procedef 


= 


04 
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ET, OBJVEC, RO 
ARGCOUNT 


$ 

SD 
(R 
SD 
(R 
§ 

1, 
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NMOMO— ae 
Oto annwo 


- ™m 
o Oo 


Routine Base: S$CODE$ + 0518 


77 bytes, 
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pro_epmw 


-1984 01:57:57 AX=11 Bliss-32 V4.0-74 
1982 13:38:04 LIBRAR. SRCJINPUTOB) -B3 31 


§ 1 ZSBTTL ‘pro_epmw'; 


8 1 ROUTINE pro_epmw = 
4 BEGIN 
1 } Process entry points with word psect 
: LOCAL 
4 Length; 
5 BIND 
§ symbolrec = objvec C.gsdoffset] : BBLOCK; 
& 
9 Length = SBYTEOFFSET(epmwSt_name) - patie aphnd hes eg cesneple + 
0 -symbolrec Cepmw$b_namingJ; 
1 symbolstring = symbolrec Cepmw$b_namingJ; ! Point to the symbol 
¢ perform (prosymbol 5 
sdoffset = .gsdoffset + .length; ! Else update the offset for next 
4 ETURN true 
5 1 END; ! Of pro_epmw 


000C 00000 PRO_EPMwW: 


-WORD Save R2,R3 

53 0000" CF 9E 00002 HOVAB GSDOFFSET, R3 
50 oc AB 63 C1 00007 ADDL3 GSDOFFSET. OBJVEC, RO 
52 0c Ad 9A 0000C MOVZBL 12(RO), LENGTH 
3¢ 0D CO 9010 ADDL2 #13, LENGTH 
06 =A 0c AO 9E 0001 MOVAB 12(RO0), SYMBOLSTRING 
0000v CF 90 FB 00018 CALLS #0, PROSYMBOL 
06 9 E9 0001D BLBC STATUS, 1$ 
: 52 C0 90020 ADDL2 LENGTH. GSDOFFSET 
0 01 DO 00023 MOVL #1, RO 
04 00026 1$ RET 


39 bytes, Routine Base: S$CODE$S + 0568 


; Routine Size: 
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L1B_INPUTOBY 14-Sep-1984 01:57:57 VAX=11 BLiss-32 vs.0-74 
ves 12780071382 93:38:32 ¢ 


LIBRAR.SRCJINPUTOBJ .B32;1 


; 690 178, USBTTL ‘pro_idc'; 

: 69 17 § 1 ROUTINE pro_ide = 

mo i ee 

> 695 1746 i Process random entity check 

; 638 1oe7 } by skipping it. 

: 698 1745 2 LOCAL 

: 34 Ho identstring : REF VECTOR [ errg?. ! pointer to ident string 

; 700 174 objectname : REF VECTOR C,BYTE), ! pointer to object name string 
: 903 1729 § pin est 

; 203 173% idc_rec = objvec C.gsdoffset) : BBLOCK; 

: 705 17 identstring = idc_rec Cidc$b_namlng] + 1+ .idc_rec Cidc$b_naming]; 
: 706 1588 gblectnene = idenfstrin 33-2 "identstring (03; _ . 

; 707 1754 length = objectname [1] + .objectname [0] - idc_rec; 

; 708 1755 sdoffset = .gsdoffset + .length; 

; 709 1756 ETURN true 

; 710 1757 1 END; ! Of pro_idc 


04 000 Save R2 
52 0000" CF 0000" CF C1 00002 DD GSDOFFSET, OBJVEC, R2 
50 03 Ag 9A OO00A MOVZBL 3(R2), RO 
50 04 A042 GE 00005 MOVAB  4(RO)ER2], IDENTSTRING 
51 60 9A 0001 MOVZBL (IDENTSTRING), R1 
50 01 A140 9E 00016 MOVAB  1(R1)CIDENTSTRING], OBJECTNAME 
51 60 9A 0001B MOVZBL (OBJECTNAME), R1 
50 51 CO OO01E ADDLg R1, OBJECTNAME 
50 52 C2 00021 SUBL2 R2. RO 
50 06 00024 INCL. LENGTH 
0000" CF 50 CO 00026 ADDL2 LENGTH, GSDOFFSFT 
50 01 D0 00028 MOVL #1, RO 
04 0002E RET 
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; Routine Size: 40 bytes, Routine Base: S$CODE$ + 0S5E0 


3s w7Ss7 


1802 1 


K 13 
LIB_INPUTOBJ 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 Page 32) L 
vOe=000 pro_lsy 1880-1984 12:38:06 Le TaRAR SRETINEUY OB 1639; 1 918) v 
2 1779 1 &%SBTTL ‘pro_lsy’; : 
: f 2 15 ? ROUTINE l | ; 
; pro_lsy = 3 
3 £ $ 17 § BEGIN | H 
; 738 17 : : 
; 739 1784 ! Process local symbol definition/reference : 
; 740 1785 ' by skipping it. ‘ 
3; 741 17 8 : | : 
; 74 178 LOCAL | ‘ 
; 74 1788 Length; | : 
: 7446 1789 BIND PF 
; oe 1739 lsy_rec = objvec C.gsdoffset] : BBLOCK; : 
: 747 1738 If NOT .lsy_rec Clsy$v_def) : 
; 748 179 THEN : 
: 749 1794 Length = SBYTEOFFSET(isrf$t_name) - SBYTEOFFSET(isrf$t_start) + : 
:; 750 1795 elsy_rec Cisrf$b_namingJ : 
3 9) 1796 ELSE 3 
3 Ie 1797 Length = SBYTEOFFSET(lsdf$t_name) - SBYTEOFFSET(Lsdf$t_start) + ; 
.<rs 1798 -lsy_rec Clsdf$b_naming); : 
3 754 1799 sdoffset = .gsdoffset + .length; ; 
: ie 1800 ETURN true : : 
; 756 1801 1 END; ! Of pro_lsy 
0000 00000 PRO_LSY:.WORD Save nothin ; 1781 
50 0000" CF 0000" CF C1 00002 ADDL3 GSDOFFSET, OBJVEC, RO : 1790 
09 02 Ad 01 0 QOOOA BBS #1, 2 ‘ 3: 1792 
50 06 AO 9A 0900F MOVZBL 6(RO), LENGTH : 1796 
50 07 CO 00013 ADDL2 #7, LENGTH ; 
07 11 00016 BRB $ 3 
50 0c AO 9A 00Ci8 1% MOVZBL 12(RO), LENGTH 3; 1797 
50 OD cO 0001C ADDL2 #13, LEN : 
0000" CF 50 CO OOO1F 2$ ADDL2 LENGTH, GSDOFFSET ; 1799 
50 01 00 BeOS MOVL #1, RO : 1800 
04 00027 RET ; 1801 


A eS ts ss > a ts ss 4 9 a 


00 00 00 00 00 00 00 00 00 C0 CD GD 
RV 2 SS SS QO 
rx 


"SOON EWN -OVOnNO 


; Routine Size: 


pro_lenm 


26 bytes, 


13 | 
16-Se -1984 01:57:57 AX-11 Bliss-32 V4.0-74 Page 33 
107805- 1386 93: 36304 704 LIBRAR.SRCJINPUTOBJ .B32;1 . aa 
! ZSBTTL ‘pro _lepm'; 
i ROUTINE pro_lepm = 
BEGIN . “ 
i Process local symbol entry point definition 
by skipping it 
LOCAL 
Length; 
BIND 
lepm_rec = objvec C.gsdoffset] : BBLOCK; 
| 
Length = ibihsahiamichcmean + name) = SBYTEOFFSET(Lepm$t_start) + 
epm_ ree : ee _namingl; 
RETURN true = .gsdoffset + “length ! Else update the offset for next | 
! Of pro_lepm 
0000 00000 PRO_LEPM: 
«WORD Save ing ; 1805 
50 0000° CF 0000" CF C1 00002 DL3 CSDOFF SET, BJVEC, RO : 1814 
50 OE AO 9A QOODA MOVZBL 14(RO), LENGTH 3: 1817 
50 OF CO QOO0E aeete #15, LENGTH 3 
0000" CF 50 C¢O 00011 ADDL LENGTH, GSDOFFSET ; 1819 
50 01 DO 00016 MOVL #1, RO : 1820 
04 00019 RET : 1821 


Routine Base: S$CODE$ + 0608 


M13 
LIB_INPUTOBJ 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 Page 34 
voe=000 pro_lpro 14-Se 1984 13:38:04 LIBRAR.SRCJINPUTOBJ .B32; 1 18) 


| 
1 ZSBTTL ‘pro_lpro'; | 
| 


; 780 1823 

: : ; 3 : ROUTINE l 

: pro_lpro = 

ime ee 

; «785 1828 : Process local ayabet procedure definition 

; 786 \s 9 ' by skipping it 

: 787 1830 : 

: 788 1831 LOCAL 

; 789 18 ‘ Length; 

; 790 18 BIND 

: em) + : lpro_rec = objvec C.gsdoffset] : BBLOCK; 

: 79 1836 

: 794 1837 Length = SBYTEOFFSET(lpro$t_name) - SBYTEOFFSET(Lpro$t_start) + 
: 795 1838 § -lpro_ rec x Sagrom naming); 

; 796 1839 ppg a = .gsdoffset + .length ! Else update the offset for next 
; 797 1840 2 a ue 

; 798 1841 1€E ! Of pro_lpro 


nothi 


im 
w 


‘ Save n ; 18 
50 0000" CF 0000" CF C1 00002 ADDL3 GSDOFFSET, OBUVEC, RO > 1834 
50 OE AO 9A OOOOA MOVZBL 14(RO), LENGTH + 1837 
50 OF CO OO00E ADDL2. #15, LENGTH : 
0000" ¢F 50 CO 00011 ADDL2 LENGTH, GSDOFFSET : 1839 
50 01 DO 00016 MOVL #1, RO : 1840 
04 00019 RET + 1841 


; Routine Size: 26 bytes, Routine Base: $CODE$ + 0622 


| 
0000 00000 PRO_LPRO: 
WORD 
; 799 1842 1 
| 
| 


<r 


N 13 
LIB_INPUTOBJ 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 P 5 | L 
yOe7000 pro_spsc 1e73ep-1882 33:88:84 EM taRan Sneiineutcas.0%3;1 a9e 433 V 
; 801 1843 1 XSBTTL ‘pro spsc’; 
Pe pepe 
3 ro_spsc = 
> 804 1 4g wa | 
: Be 1868 $i p hareable i definiti 
; ! rocess shareable image psect nit 
; 807 1849 : by ignoring it. ~ : 7 
; 808 1850 ! 
0 ies beng 
; en : 
; 811 1888 BIND ’ ; | 
: Big 1320 spsct_def = objvec C.gsdoffset] : BBLOCK; | 
; 81 1855 
> 6814 1928 ! 
: Biz 132% First check for legal P-section name and alignment 
: 817 1859 IF .spsct_def Csgps$b_namlng] GTRU sym$c_maxing ! Check name within the Legal 
: 818 1860 OR .spsct_def Csgps$b_naming] EQL 0 = 'R - 
: BS ee § ree pect. gps$b_ 9 ange for symbol and P-section 
; 820 1908 3 SIGNAL (Lib$S_spnaming, 3, modnaming, LibSgl_inpfdb Cfdb$l_namdesc], 
; 821 186 ; _. «Spsct_def Csgps$b_nam(ng)); 
; 822 1864 RETURN Lib$S_spnaming; 
: 823 1865 END; 
; B53 ibee l th = SBYTEOFFSET( $t ) SBYTEO! FSET ( $ ) 
3 en = sgps$t_name) - sgps$t_start) + 
; 826 1868 g . mespact def Csgps$b_namingt: i 
: 827 1869 gsdoftset = .gsdoffset + .length; 
; 828 1870 2 RETURN true 
; 829 1871 1 END; ! Of pro_spsc 


001C 00000 PRO_SPSC: 
WOR 


D Save R2,R3,R4 ; 1845 
54 0000' CF 9E 90002 MOVAB GSDOFFSET, R4 ; 
53 000000006 1 8F DO 0000 MOVL. #LIB$_SPNAMLNG, R F 
52 OC Ad 64 C1 00008 DDL3 GSDOFFSET, OBJVEC, R2 + 1854 
1F 0c Ag 91 0001 MPB =s-«*12(R2), #31 : 1859 
05 1A 00017 BGTRU 1$ ; 
0c A2 95 00019 TSTB =: 12 (R2) > 1860 
1¢ 12 0001C¢ NEQ 2$ ; 
7E 0c Ag 9A 901 1$ MOVZBL 12(R2), =(SP) > 1863 
7E 00006 CF 1 ci 02 ADDL3 #16, LIBSGL_INPFDB, -(SP) : 1862 | 
1¢ AG 9F 000 PUSHAB MODNAMLNG : 
Q DD 00028 PUSHL @ : 
DD 00020 PUSHL R ; 
000000006 90 Q FB O02F CALLS #5, LIBSSIGNAL : 
0 3 00 MOVL 3. RO > 1864 
4 00039 RET 3 
50 OC A2 9A 0003A 28 MOVZBL V2¢R2) LENGTH + 1867 
50 OD CO 0003E ADDL2. #13, LENGTH : 
64 50 C0 0041 ADDL2 LENGTH, GSDOFFSET > 1869 
0 01 b 44 MOVL #1, RO + 1870 
4 00047 RET > 1871 


yoezbuoe pro_spsc 1B-2e0-1984 93:38:34 YERAR” ae fineuYoa. 633-1 Page ) 


3; Routine Size: 72 bytes, Routine Base: SCODES + 063C 


; 830 1872 #1 


L1B_INPUTOBJ 1b-5¢ Sep-1 AX-11 Bliss-32 V Py “74 p 7 | 

boe=b00 prosymbol 12-308-1 382 9}: 35: bu LIBRAR.SRC INPUT OB "633.1 a9 58 

73 ! ZSBTTL ‘prosymbol'; 

75 1 ROUTINE prosymbol = 
BEGIN 


Wr 


; 1 3 
3 1874 : 
3 1 : 
3 5 187 3 
3 ° 187 ++ : 
; 187 : : 
; B39 1880 § i | 
; 840 1881 if -Symbolstring f83 GTRU .Lib$Sgl_keysize ! If the symbol Length is outside ; 
3 1 : ¢ ,° Bee,etring EQL 0 ! Legal range . 
; <§ 1884 SIGNAL (Libs reset ing symbolstring [0], modnaml ng. : 
3 844 1885 Stab’ Cfdb$l_namdescJ, .symbolstring (0J); | ; 
; 0? $ — Libs Jeenlitnes | 

3 “3 1888 IF NOT .Libs t » ance Clib$v_globals] 

; 848 1889 gs RETURN 

; 849 1890 ELSE BEGIN | 

; 850 1891 

; «851 1396 LOCAL 

3 26 189 status, 

; 85 1894 feptecekey 

3 854 1895 keynb f BB | 

; 855 1998 txtrfa: BBLOCK OFF Fasc 2{e7ethi: 

3 528 44 keydesc : BBLOCK Cdsc$c inj; | 

; 858 1899 keydesc Cdsc$w_length] = FR te at bt Babe 3 

; 859 1900 keydesc Cdsc$a_pointer] = york § st 1 

; 860 P 1901 perform (lbr$set_index (Lib tibet Lbbgt 0 bj gsdi 

3 361 IDE ; Lib$_ indexérr, 1 , Libsgt ‘ti b Cabs _namdesc]); p 
; 86 1904 ‘ If the symbol is already in the index and we are not replacing, then that is | ; 
3 Bee 1905 } an error. If we are replacing, it must be from the same module, otherwise ; 
; oe? 1388 } that is an error. | : 
; 867 1908 4 IF roplocghey © Lor$lookup ree? pies pos Libctl, keydesc, txtrfa)) 'If key already in index | : 
; 868 1909 4 (IF .Lib$gl_ ctlask f $v_repla : 
; 869 1910 4 V CHSEGL trtase wlength, txtrfa, rfa$c_length, oldmodrfa) : 
: 870 1911 4 ELSE trues | ; 
; 871 bat 4 THEN BEGIN 3 
; 872 1915 4 SIGNAL (Lib$_dupglobal, ; {ose tis Lib$Sgl_inpfdb Cfdb$l_namdesc], !Tell user of error : 
; 873 1914 4 Libfdb Cfdb$l_namdesc]); | : 
3: 874 1915 4 RETURN Lib$_dupglobal; ‘ 
Psa heey : 
: 77 1918 ! If replacing the key, look and see if its on the deleted key list. If it is, remove it : 
; 878 1919 ! from that List, and put on the globa. list. If not replacing, just put on the global : 
; 879 1920 ' tist. : 
; 880 1921 ! : 
: 1 19 § status = false; : 
; 88 1923 4 IF NOT ( | 

; 88 1924 4 IF iSRGIN 

3 Bee 1925 2 THE ona? 

; 885 19 $ keynb = delist (0); ‘Initialize to search queue 

; 19 WHILE (keynb = -keynb CLnbs gf tink?) NEQ delist (0) | 

; 887 1928 DO IF CHSEQL ( neyeone dsc$w_length], skeydesc sdects pointer], 

; 888 1929 ekeynb Elnb$b _nam(ng], keynb Clnb$t_name) 


prosymbol 


WANNA 
DONAULS WO 
oo 


08 


13 

Bk § 
Be 
19 4 
19 4 
19 4 
19 3 
19 4 
1940 4 
1941 4 
1306 & 
1945 4 
1944 4 
1945 4 
1946 4 
1947 4 
1948 4 
1949 4 
1950 4 
1951 
1326 
195 
1954 § 
1955 R 
1956 1€ 


7E 


03 


AE 


D 14 
16-Se 
14-Sep- 

THEN BEGIN 
REMQUE (.keynb, keynb); 


status = true; 
haath 


ney_nb : REF BBLOCK; 
key_nb = globlist (0); 
WHICE - 

IF CH 


QL (.keydesc 


dsc$w_length], 
key _nb 


Lnb$b_nam(ngJ, 
THEN RETURN true; 
erform (Lib_get_mem (\lnb$c_fixedsize + 


nb 5 inbsb _neatng) = .keydesc Cdsc$w_length; 
dsc$w_length], .keydesc Cdsc$a_pointer], keynb Clnb$t_name)); 


e 
CHEMOVE (.keydesc 


END; 
keynb Clnb$v_replace] = sFeplecekey: 
be (.keynb, .globlist (1]); 


END; 
ETURN true 
ND; 


07FC 00000 icseesiaimaa 


5A 00000000G 8F DO 00002 
59 000000006 8F D0 00009 
58 000000006 00 9E 00010 
57 0000" CF 3 00017 
5E 14 C2 Q001C 
50 00 B87 9A O001F 
00006 CF 50 D1 00023 
9 1A 00028 
0 D5 Q002A 
18 12 88 C 
50 DD 000 F 1$ 
0000G CF 10 ¢1 000 
18 A? 9F 000 
67 DD 00039 
9 DD 00038 
68 6 FB 00st 
50 88 D0 ORee 
04 0004 
0000G CF 01 €0 pee 2$: 
00r¢ 1 4C 
046 =A 00 3 B OO04F 3$: 
6 1 €1 00054 


p=19B6 12:38:04 


(bez = ,key_nb fase tu-Lengthy NEQ globlist [0] DO 


AX=-11 Bliss-32 V4.0-74 


Page 38 
LIBRAR.SRCJINPUTOBJ .B32;1 (20) 


| 
| 
‘Remove from the deleted symbol queue 


'Result of search 


! search globlist to be sure symbol not already on | 


| 

i 

pavers Cdsc$a_pointer], 

key_nb Clnb$t_name]) 

! Key already in List, so exist 

ekeydesc Cdsc$w_length], keynb)); 
| 
| 
| 


! Of symbol 


ORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10 > 1875 
MOVL  #LIBS_DUPGLOBAL, R10 ; 
MOVL $#LIBS~SYMNAMLNG, R9 : 
MOVAB LIBSSIGNAL, R8 3 
MOVAB SYMBOLSTRING, R7 ; 
SUBL2 #20, SP ; | 
MOVZBL @SYMBOLSTRING, RO : 1881 
CMPL RO, LIBSGL_KEYSIZE ; 
BGTRU 1$ F 
TSTL RO + 1882 
BNEQ 2$ 3 
PUSHL RO : 1885 
ADDL3 #16, LIBSGL_INPFDB, -(SP) ; 
PUSHAB MODNAMLNG > 1884 
PUSHL SYMBOLSTRING ; 885 
PUSHL #4 ; 
PUSHL 9 ; 
CALLS #6, LIBSSIGNAL ; 
OV RY, RO : 1886 | 
BBS ", LIBSGL_CTLMSK+2, 3$ ; 1888 | 
MOVZBW @SYMBOLSTRING, KEYDESC > 1899 | 
ADDL3 #1, SYMBOLSTRING, KEYDESC+4 : 1900 | 


| 
| 
| 


’ 


14 
LIB_INPUTOBJ 16-5¢ -1984 01:57:57 AX-11 Bliss-32 V4.0-74 Page 39) 
E2000 prosymbol 1 ~8ep-19 4 0b bloc LIBRAR.SRCJINPUTOBJ .B3 31 . (28) 
99006 CF 9F 00059 PUSHAB LIB$GL_OBJGSDIX : 1902. 
0G CF 9F 0005D PUSHAB LIBSoL LiecTL : 
000000006 09 FB 61 ALLS #2, LBR SET INDEX : 
1 e 068 BLBS STATUS, 4 : | 
DD 00068 PUSHL STATUS : | 
7E 00006 CF 10 1 006 ADDL3 #16, LIBSGL_LIBFDB, -(SP) : | 
1 0D PUSHL #1 : | 
000000006 8F DD 0007 PUSHL #LIB$_INDEXERR : 
68 4 FB 78 CALLS #4, LIBSSIGNAL : 
oc AE 9F OOO7E 4$ PUSHAB TXTRFA : 1908 | 
aoc fe Sr Gon, PUSKAS FIRES Has 
000000006 99 O5 FB 0088 CALLS #3, CBRSLOOKUP_KEY : 
4 0 DO 0008F MOVL RO, REPLAC : 
28 36 £9 00092 BLBC REPLACEKEY, 6$ ; 
08 00006 CF 05 3 009 C #5, LIBSGL_CTLMSK+1, 5$ > 1909 | 
40 A? OC AE 06 $9 90098 CMP CS #6, TXTRFA; OLDMODRFA : stm 
7E 00006 CF 10 C1 O00A3 5S: ADDL3 #16, LIBSGL_LIBFDB, -(SP) : 1914) 
7E 00006 CF 10 €1 000A9 ADDL3. #16, LIBSGL-INPFDB, -(SP) + 1913 
0c AE OF OOOAF PUSHAB KEYDESC F 
03 DD 00082 PUSHL # + 1914 
5A DD 00084 PUSHL R10 ; 
68 05 FB 00086 CALLS #5, LIBS$SIGNAL ; 
50 5A DO 00089 MOVL R16, kO + 1915 
04 000BC RET ; 
55 D4 OOOBD 6$: CLRL STATUS + 1922 
2E 56 £9 000BF BLBC = REPLACEKEY, 8$ : 1924 
6E 0080 (7 : 000¢¢ MOVAB DELIST, KEYNB + 1926 
50 00 BE D 990¢ 7$: MOVL KEYNB, : 1927 
6E 50 DO 000CB MOVL RO, KEYNB : 
51 0080 C7? 9E 000C MOVAB DELIST, R1 ; 
51 50 D1 000D CMPL RO, R1 : 
18 13 00006 BEQL ; 
54 6E DO 00008 MOVL KEYNB, R4 + 1929 
50 09 A&4 9A 000DB MOVZBL 9(R4), RO : 
50 00 08 BE 04 AE 2D O00DF CMPCS  KEYDESC, @KEYDESC+4, #0, RO, 10(R4) : 
OA AG 00E6 ; 
DD 12 O00E8 BNEQ 7$ : 
6E 64 OF OOOEA REMQUE (R4), KEYNB + 1931 
55 o} D0 OOED MOVL #1, STATUS : 1932 
41 5 f OOF 8$: BLBS STATUS, 11$ : 1936 
54 78 «OA? : OOF MOVAB GLOBLIST, KEY_NB + 1943 
54 64 p OOF? 9$: MOVL  (KEY_NB), KEY~ > 1944 
50 78 AZ? SE OOOFA MOVAB GLOBCIST. R F 
50 54 D1 OOOFE CMPL _—KEY_NB, RO ; 
11 13 00101 BEQL : 
50 09 A& 9A 00103 MOVZBL 9(KEY_NB), RO + 1946 
50 00 08 BE 04 AE 20 0107 CMPCS KEYDESC, @KEYDESC+4, #0, RO, 10(KEY_NB) F | 
5 12 0110 BNEQ ©: 9$ : 
D 11 0011 BRB 12$ > 1947 | 
E po 114 10$: | PUSHL SP > 1948 | 
7E 08 AE ¢ 116 MOVZWL KE YDESC -(SP) ; 
6E A CO OO11A ADDL2 #10, (SP) ; 
00006 CF ; FB 011D CALLS #2 L 1B_GET MEM ; 
iF E9 00122 BLBC STATUS,~13$ ; 
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Routine Base: 


prosymbol 
325 bytes, 


aay 


; Routine Size: 


LJ8 
Vv 


rc 
-_ 


L 16 _Anpu Toe, 


14 
18-Se 1984 01:57:57 AX=-11 Bliss-32 V4.0-74 P 4 
14 30-1984 9 :3h564 LIBRAR.SRCJINPUTOBJ .B32;1 29° 021 


0 
> 
° 
@ 
$ 


ZSBTTL '‘proeom'; 


ROUTINE proeom = 
BEGIN 


—> 


modnamdesc ); ! log module name for LUH recor ' 
Lib_log_op (.0 eresiqn. modnamdesc, .LibSgl_libfdb); ‘Log insert if /LOG 
= Q; ‘Reset module VBN address 
gtoblist £0) = gtoblist (0); | 
1 03; | 


moduleflags = 0; 
modnaming = 0; 
RETURN true 

END; 


; 917 1957 1 $ 
3; ¥ 8 1328 1 ; 
3; 9 1959 1 : 
; 920 1960 ; 
; 921 1961 3 
3; F ¢ 1306 : Process end of module records: : 
3 F 196 : (1) Validate sequence $ 
: 924 1964 ' (2) Interpret compiler completion code, | ; 
; 2 2 1392 } issuing appropriate error or warning message ; 
: 927 1967 2 3 
; 928 1968 LOCAL ‘ 
; 929 1969 datadesc : BBLOCK Cdsc$c_s_bln], : 
: ? 1379 sodnendes¢ : BBLOCK Cdsc$c_s_blnl, | : 
oe Gmeat THA 4 cine Sake comes : ow | 
; maxrecing = obj$c_maxrecsiz; : t ; 
: 3H 1278 & perfore Tecachh U0) s censb.comcod]) NEO 0 pepenphnpmabepes toa, EPs! || 
; comcode = .objrec Ceom$b_comco ! t t ; 
: 936 1976 § THEN BEGIN LS Gaping oetore: 
; 937 1977 IF .comcode GTRU 3 THEN comcode = 4; ‘Make illegal index legal | : 
: 938 1308 ; IF .comcode NEQ 0 : 
; 939 197 THEN SIGNAL (Lib$_comcod, 3, compilecods C.comcode * dsc$c_s_bln,0,0,0], !Signal the error (warning) 3 
: oe 1300 3 on: modnaming, Lib$Sgl_inpfdb Cfdb$l_namdescJ); | : 
: 942 1386 perform (copyrec ()); : 
; 943 P 198 rms_perform (lbr$put_end (Lib$gl_Llibctl), ‘ F 
; ace 13ee ;' LibS_writeerr, .lbr$gl_rmsstv, 1, LibSgl_libfdb Cfdb$l_namdesc]); ‘ 
3 ae8 1956 : Update the module header 
: 948 1988 2 iF .lLibSgl_ctlmsk Clib$v_selective) ; 
; 949 1989 THEN moduleflags = .moduleflags OR mhd$m_selsrc; : 
: 950 1990 datadesc (Cdsc$w_length]_= .id ng + 2; ‘include flag and id Length bytes : 
; «951 1991 datadesc [dsc$a_ pointer) = moduleflags; : 
; 95 126 modnamdesc Cdsc$w_length] = .modnaming; $ 
; 95 199 modnamdesc [dsc$a_pointer] = modulename; 3 
; 954 P 1994 rms_perform (lbr$set_module (Lib$gl_libctl, modulerfa ,0,0, datadesc), ‘ 
: eee 1932 ; LibS_mhderr, .lbr$gl_rmsstv, 2, modnamdesc, Lib$gl_libfdb Cfdb$l_namdesc]); : 
; 937 1997 Insert all the keys now ; 
: 959 1999 perform (finish_object (true)); ; 
3 961 $3 Log operation if logging on console | : 
; 368 008 Lib_tog_upd ( | : 
; 964 004 (IF .operation EQL Lib$_replaced THEN Lhe$c_replaced ELSE Lhe$c_inserted), | : 


POPSMoNONoPoNPofPonony 


! END OF EOM PROCESSING 
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LIB_INPUTOBJ 16-Sep-1984 01:57:57 AX-11 Bliss-32 V4.0-74 Page 42. 
Lbe=d00 preven 1ergee=} 88s 9b:88:8, | He teaAR tae iabuyoas os3.1 9 tS 
| Ps 
003C 00000 PROEOM: .WORD Save R2,R3,R4,R5 : 1959 : 
55 90006 F HS O0Ge MOVAB LIBSGL_LIBFDB, RS : ‘ 
24 9900 0006 60 9E 900 MOVAB LBRSGL-RMSSTV, R& : ; 
3 000000006 00 9€ 00 OF MOVAB LIBSSIGNAL, R$ : | : 
52 0000' CF 3 001 MOVAB MODNAMLNG, ; : 
3E 10 ¢ OO1A SUBL2 #16, SP : : 
FC OA 0800 BF 3¢ 9910 MOVZWL m3 48, MAXRECLNG + 1973 : 
0000v CF 0 FB CALLS #0, SEQCHK : 1974 : 
2 0 £9 00028 BLBC STATUS, 3$ : : 
50 FO A2 DO 00028 MOVL OBJREC, RO + 1975 : 
50 01 Ad 9A 0002F MOVZBL 1<RO), COMCODE ; 
é 13 00033 BEQL : 
03 0 pi 90035 CMPL  COMCODE, #3 + 1977 
03 1B 00038 BLEGU 1$ : 
50 04 v0 B03, MOVL #4, COMCODE ; 
50 05 0003D 1$: TSTL  COMCODE + 1978 
17 13 0003 BEQL ; 
7E 00006 CF 10 1 00041 ADDL3 #16, LIBSGL_INPFDB, -(SP) + 1980 
52 DD 90047 PUSHL : 1979 
70 A240 7F 00049 PUSHAQ COMPILECODSCCOMCODE3 : 
03 DD 00040 PUSHL # : 1980 
000000006 BF DD O004F PUSHL aL ies COMCOD F 
63 05 FB 00055 CALLS #5, LYBSSIGNAL ; 
0000v CF 00 FB 00058 28: CALLS #0, COPYREC + 1982 
74 50 4 90050 $: BLBC STATUS, 7$ : 
00006 CF SF 00060 PUSHAB LIBS$GL_LIBCTL + 1984 
000000006 00 01 FB 00064 CALLS #1, LBRSPUT_END 3 
13 50 £8 00068 BLBS TATUS, 4$ : 
64 DD DO06E PUSHL LBRSGL_RMSSTV ; 
50 DD 0007 PUSH T ; 
7E 65 10 ¢1 00072 ADDL3 #16, LIBSGL_LIBFDB, -(SP) : 
01 DD 00076 PUSHL : 
008610D2 8F DD 00078 PUSHL #8786130 ; 
63 05 FB 0007E CALLS #5, LIB$SIGNAL F 
04 00006 CF 02 EI 00081 4$: BBC #2. LIBSGL_CTLMSK+2, 5$ : 1988 
3c A 01 88 00087 B1SB2 * MODULEFLAGS + 1989 
08 AE 3D «A2 «9B 0088 5$: WOVZBM IDLNG, DATADESC : 1990 
08 AE 02 Ad 000 ADDW2 #2, DATADES ; 
OC AE 3¢ 0 AsOSE 009% MOVAB MODULEFLAGS, DATADESC+4 : 1991 
ry 62 98 00099 MOVZ7BW MODNAMLNG, MODNAMDESC : 1998 
04 AE 01 A2 9E 909¢ MOVAB MODULENAME, MODNAMDESC+4 : 199 
08 AE 9F OOOA1 PUSHAB DATADESC : 1995 
7E 7C OQOOA4 CLRQ = = (SP) ; 
20 Ad OF OOAG PUSHAB MODULERFA : 
00006 CF 9F OOOA PUSHAB LIBSGL LIBCTL : 
000000006 00 95 FB OOAD CALLS #5, LBRSSET_MODULE ; 
16 0 £8 000B4 BLBS US, ; 
64 DD 00087 PUSHL LBRSGL_RMSSTV : 
30 DD 00089 PUSHL STA : 
65 10 ¢1 0008B ADDL3 #16, LIBSGL_LIBFDB, -(SP) ; 
0c AE SF O00BF PUSHAB BODNAMDE SC : 
02 pd 000C2 PUSHL @# : 
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#LIBS_MHDERR 
#6, LIBSSIGNAL 
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FINISH OBJECT 
stATu , 108 


GPERATION, M#LIBS_REPLACED 


GLOBLIST, GLOBLIST 
GLOBLIST, GLOBLIST+4 
MODULEFLAGS 
MODNAMLNG 

1, RO 
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1 ZSBTTL ‘finish object’; 

ROUTINE finish_object (allswell) = 

BEGIN 


: This routine is called when the processing for a module is complete. 

' if allswell is true, the symbols in the queue and the module name 

: are entered in the index, and the old data and any symbols not replaced 
: (if replacing) are deleted from the index. If allswell is false, 

} the List is merely deallocated. 
L 


OCAL 
keydesc : BBLOCK Cdsc$c_s_bln], 
keynb : REF BBLOCK; 


1 
Write the end of the data if there was an error and then delete it 


IF .modulerfa (rfa$l_vbn] NEQ 0 'If data was written 

AND NOT .allswelT ! and there was an error 
THEN BEGIN 

Lbr$put_end (Lib$gl_Libctl); 

lbr$deléte data ( \BSgl_tibett, moduler fa); ‘Delete the new data 


modulerfa Erfa$l_vbnJ 
' e 
: Set index to the global symbol index 


perform (Lor$set_index (Lib$Sgl_libctl, Lib$gl objgsdin). 
Lib$_indexerr, 1, LibSgl_libfdb Cfdb$l_namdesc)); 


1 

Enter the new symbols 

WHILE NOT REMQUE (.globlist, keynb) 
DO BEGIN 


IF .allswell 
THEN BEGIN 
keydesc Cdsc$w_length] = .keynb Finbsb_nenlngd: 
keydesc Cdsc$a_pointer) = keynb [lnb$t_name]; 
rms_perform (lBr$replace_key (Lib$gl_libctl, keydesc, 
oldmodrfa, modulerfa), 
Lib$S_inserterr, .(br$al rmsstv 
2, keydesc, LibSgl_libfdb Cfdb$l_namdesc]); 


END; 
sxe, tres_nem (Lnb$c_fixedsize + .keynb Clnb$b_naming], .keynb); 


Delete any symbols not replaced 


WHILE NOT REMQUE (.delist, keynb) 

DO BEGIN 

IF .allswell 

THEN BEGIN 
keydesc pdscfu_ length) = ,keynb fiLnbsb_naningd; 
keydesc C[dsc$a_pointer] = keynb [lnb$t_name]; 
perform (lbr$delete_key (LibSgl_libctl, keydesc), 


J 14 
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LIB_INPUTOBJ 19° Sep-1984 7:57 AX-11 Bliss-32 V4.0-74 Page 45) 
ioe=000 finish_object 14- Sep-19 4 93: 36; 704 LIBRAR.SRCJINPUTOBJ .832;1 : (22) | 
: 18 § 4 4 LibS_delkeyerr, 2, keydesc, Lib$Sgl_libfdb Cfdb$l_namdesc]); : 
: + ¢ O78 bib. tres mem (Lnb$c_fixedsize + .keynb Clnb$b_naming], .keynb); : 
; 10 ° 075 on 3 
3 10 878 Hew BEGIN : 
: 1038 p 307 perform (Lbr$set_index (Lib$gl_ Libetl, te objmodix ; 
> 1039 078 ndexérr $9 Tibfdb Lrabst _namdesc]); | ; 
; 1040 P 2079 rms_perform (Lbr$replace_key ( bet =noduled esc, , 
> 1041 P 2080 ode bfgl -t moduler t fa) p : 
: 1048 P 2081 Libs_ ingerterr, . (br$g ; 
: Hk 8 ¢ 2, moduledesc, Lib$gl_ ot sora *Habst _namdesc)); ; 
3 ine? One i If Esmee delete the old data : 
3 1047 086 al re - 
: 1048 P 2087 THEN rms_pertorm (lbr$delete_data (Lib$gl_ nr a per ta) « : 
> 1069 2088 Lib$_deldaterr, -lbr$gl_rmsstv, LibSgl_libfdb Cfdb$l_namdesc)); : 
HBP 88 : 
r 1926 2091 2R true 3 
; 105 2092 1€ 'Of deallocate_list : 
OFFC 00000 FINISH_OBJECT: 
WORD Save R2,R3,R4, gh. R6,R7,R8,R9,R10,R11 ; 2016 
_ 5B 00000000G 00 9€ 00002 MOVAB PBRSREPLACE “aii 3 
5A 00000000G 8F D0 00009 MOVL #LIB$_IND DEXERR. “R10 3 
59 00000000G 00 9€E 00010 MOVAB LBRSSET ti : 
58 00000000G 00 9€ 00017 MOVAB LBRSDELETE_DATA, R8 ; 
57 000000006 00 9€ O001E MOVAB LBRSGL_RMSSTV, R7 : 
56 0000G CF 9E 0002 MOVAB LIBSGL- “LIBFDB, R6 
55 0000G CF 9E O002A MOVAB LIBSGL- Sea R5 i 
54 000000006 00 9E 0002F MOVAB LIBS$SI R 3 
53 0000° CF 9E 00036 MOVAB MODULERTAS *R3 - 
5E 08 C2 00038 SUBL2 #8, 3 
6 DS 0003E TSTL MODULERFA 3; 2033 
16 13 00040 BEQL 3 
12 04 of E8 00042 BLBS ALLSWELL, 1$ 3: 2034 
55 DD 00046 PUSHL 3; 2036 
000000006 00 91 FB Boose CALLS . LBRSPUT_END 3 
3 DOD GF PUSHL R 3; 2037 
55 DD 00051 PUSHL R5 3 
68 0 FB 00053 CALLS #2, LBRSDELETE_DATA : 
63 D4 B00 38 CLRL MO : 2038 
0000G CF 9F 00058 1$: PUSHAB LIBSGL_OBJGSDIX 3: 2044 
55 DD 0005C PUSHL 3 
69 9¢ 4 Bee CALLS HF arbor Sse INDEX ; 
0D E One BLBS 3 
50 DD 00064 PUSH STA U 3 
7E 66 10 (C1 066 ADDL #16, LIBSGL_LIBFDB, -(SP) 3 
4 DD QO06A PUSHL #1 3 
A DD 0006C PUSHL R10 ; 
64 04 FB OO06E CALLS #4, LIBSSIGNAL : 
| 
| 


finish_object 


SOOO Lema SSF 


Oowrrrr OOoOo0o0ow 
omy oo o,> 


SWIMS ON MOPS O 


—-O 


&o 
PNAS B QM QOSMIO DN SMMUMAMUMOOON MINMIOE BMWNN FMM MNOMOONO SUM WWINIOWW 


OUI PS NO1IO $$ VNVIOUNON PW DOO PMO WO FY “VINO OY F PWDWDOOFPMNOWOF “UO SY Pir P Pw 
NO OOS MOV OIM MNS OM NI OD NIT OOIOM "DOOM -O-- MOOT NOVO OOVUMTOOoOOTUoOwOmn—oO 
WoO OWS -[90990 "0—-TOF OOOO "$-VTOWWIMWDOI"—-WOrPoWoo s-VCVweWo *"OMMoo™" 
COOOOCOCOCOOOCOOOOOOOSOOSOSOOOSOOOSOOOOSOOOOOOOOOOOSOOOOOOOOOOOOOOOOOO 
COOOOCCOCOCOCOCOCOSSCSCOOSOSOCOOSOOSOOOSOSOOSOSCOSOOSOOOOOOOSOOOOOOOOOOOOOOO 


do od od od I OO OOOO OCOOCOOCOOCOOCOOO 


BEM O ON MO 


Be 92:3 


REMQUE 
BV 


AX=-11 Bliss-32 V4.0-74 
LIBRAR.SRCJINPUTOBJ .B32;1 


PRESSE KEYNB 
4 


8:04 


9(KEYNB), KEY 
10(R2), KEYDE 


R 
#4, LBRSREPLACE_KEY 
STATUS, 
LBRSGL _RMSSTV 
#16, LIBSGL_LIBFDB, -(SP) 
KEYDESC 
#LIBS_INSERTERR 
#6, LIBSSIGNAL 
KEYNS 
9 (KEYG) -(SP) 
#2, LIB_FREE_MEM 
@DELIST, KEYNB 
6$ 
SWELL, 5$ 
9(KEYNB). KEYDESC 
10(R2), KEYDESC+4 
#*M< > 
#2, LBRSDELETE_KEY 
STATUS, 5$ 
#16, LIBSGL_LIBFDB, -(SP) 
KEYDESC 
#LIBS_DELKEYERR 
#5, LIBSSIGNAL 
KEYNB 
9(KEYNB) . -(SP) 
#2, LIB_FREE_MEM 


LIB$GL_OBJMODIX 
LBRSSET_INDEX 
TUS, 7$ 


STATUS 
#16, LIBSGL_LIBFDB, ~(SP) 


R10 
#4, LIBSSIGNAL 
R3 


Pe Se Se Se Se Se Ge Se Se Ge Se Se Se Ge Se Ge Ge Ge Se Se Se Se Ge Ge Se Se Ge Ge Be Be Ge Be Se Be Fe Be Se Ge Se Se Ge Be Be Se Fe Se Fe Se Be Be Se Se Se Se Se Se Se 


#4, LBRSREPLACE_KEY 


2082 | 


LIB_INPUTOBJ 
HOe=000 finish_object 


7E 


7E 


; Routine Size: 360 bytes, 


Routine Base: 


1% 14 


16 29 E8 00129 
i i 
66 1 g 1 6 
14 =A F 00134 
g DD 00137 
000000006 8F DD 00139 

4 06 FB 0015F 
1E ~~ 66 e? 0142 
08 A F Bes 

, a i it 
3 5 EB AP: 
g DD 00151 

0 oD ae 

66 10 Ci Q015 
gt DD 00159 

000000006 8F DD 00158 

4 83 FB 00161 
50 1 DO 00164 
04 00167 


SCODES + O8DA 
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7:57 AX=-11 Bliss-32 V4.0-74 
8:04 LIBRAR.SRCJINPUTOBJ .B32; 1 


STATUS, 8$ 
PBRSGL. “RMSSTV 
aiatu 5 
#16, LIBSGL_LIBFDB, -(SP) 
DULEDESC 


*. 18S INSERTERR 

#6, LIBSSIGNAL 

REPLACING, 9$ 

4 DMODRFA 

#2, LBRSDELETE_DATA 
STATUS, 

LBRSGL_RMSSTV 

#16, LIBSGL_LIBFDB, -(SP) 


, 1B$ DELDATERR 
oe b LTBSSI6 


Sete Se Fe Ge Se Ge Se Fe Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Ge 
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L38. NPUTOBJ 
v04=000 LIBRAR.SRCJINPUTOBJ .B32; 1 (23) 


seqchk 


; 1055 93 1 XSBTTL ‘seqchk'; 

; 1928 94 1 

: 105 095 1 ROUTINE seqchk = 
; 1058 096 1! 
: 1059 097 1! Routine which validates that records are in correct sequence. 

; 1060 098 1! Returns value false if not, true otherwise. 

; 1061 099 1! | 
: 1906 100 BEGIN 

; 106 101 BIND ‘ | 
3 1900 196 ' hdrsubtyp = objrec Cobj$b_subtyp] : BYTE; 
; 106 104 IF .currectyp EQL obj$c_hdr | 
; 106 105 THEN . !If this record is a header 

; 1068 196 IF .hdrsubtyp EQL obj$c_hdr_mhd ‘and it is the main module header 

; 1069 10 THEN 'then we have valid sequence 

; 1070 2108 IF (.lastrectyp EQL obj$c_eom) OR if and only if the previous 

; 1071 109 (.lLastrectyp EQL obj$c_eomw) 

3 Ors 110 THEN (mhdseen = true; ‘Record was end of module. if that 

; 107 111 Lnmseen = false; a 

3 1074 sil¢ 3 RETURN true) tis the case set mhd record 

: 1075 2113 3 ELSE BEGIN 

3: 1076 2114 ; SIGNAL (Lib$_seqnce, 2, modnaming, 

; 1077 2115 Tib$gl_inpfdb Cfdb$l_namdescJ); 

; 1078 2116 3 RETURN Lib$_seqnce; 

3; 1079 2117 3 END 

; 1080 2118 2 ELSE , 

; 1081 2119 2 IF_.mhdseen : ‘If some other kind of header 

; 1082 2120 3 THEN (IF _.hdrsubtyp EQL obj$c_hdr_lnm ‘we must have seen a main header 

3; 1083 2121 3 THEN Lnmseen = true; 

3; 1084 $is¢ 3 RETURN true) 

: 1085 212 ; ELSE BEGIN 

; 1086 2124 SIGNAL (Lib$_seqnce, 2, modnaming, 

> 1087 2125 3 -_ TibSgl_inpfdb Cfdb$l_namdesc]); 

: 1088 2126 ; RETURN Lib$_seqnce; | 
3 1089 2127 END 

: 1090 2128 § ELSE 

3; 1091 $i¢2 IF .mhdseen 

3 109% 2130 AND .lnmseen 

3; 109 2131 THEN 'If we have seen a main header 

3 1094 $13 BEGIN | 
3; 1095 213 'e (.currectyp EQL obj$c_eom) OR 'then turn off flag on end of module. 
3: 1096 2134 4 (.currectyp EQL obj$c_eomw) | 
; 1097 2135 3 THEN mhdseen = false; 'sequence error if have not seen 
: 1098 $138 RETURN true; !main header and this is not one. 

: 1099 137 END 

3; 1100 2138 ELSE BEGIN | 
3 1101 2139 SIGNAL (Lib$_seqnce, 2, modnealng. 

: 1108 2140 3 LIbSgl_inpfdb‘Cfdb$_nandesc); | 
; 110 $10) RETURN Lib$_seqnce; 

3 1104 136 2 END; 
3 1105 2145 1 END; 


Q00C 00000 SEQCHK: .WORD Save R2.R3 5 2095 | 


1 


15 
Woezb00. seqchk 16-3 attr 3; 35: ba A TBRAR Shed Thputcay 03 $f Page 34). 


Sx 


5 000000006 8F 0 MOVL LIBS beacons: R3 : 
cr mOVAB MHDSE : | 
51 18 «OA 1 ¢ ADDL 1 NRE CS + 2102. 
5 20 A 1 MOVL EUARECIYE, Ro + 2104 | 
: 1 BNEQ : 
19 TSTB =. (R11) + 2106, 
11 («1 1B BNEQ 2% ; 
03 1¢ a2 p 1D CPL ASTRECTYP, #3 : 2108 | 
07 1¢ Ae pi ; CHPL = LASTRECTYP, 47 : 2109, 
62 ef 70 00029 18: mOVa #1, MHDSEEN * 2110) 
Bi C BRB : 211 
2 62 9 OO2E 2$: BLBC $MHDSEEN, 6$ t 2119) 
1 61 91 00031 CMPB = s«(R1), #4 + 2120 
19 13 0 BNEQ 5$ : 
04 A2 01 D0 000 MOVL #1, LNMSEEN > 2121 
13 11 0003A BRB 5$ > 2122 
14 62 €9 005¢ 3$: BLBC MHDSEEN, 6$ ; 3129 
19 04 A2 €E9 0003F BLBC LNMSEEN, 6$ + 2130 
0 50 01 0048 CMPL ~=soRO, + 2133 
g 13 0 046 BEQL «= 4$ ; 
07 0 Di 0004 CMPL RO, #7 > 2134 
08 12 00048 BNEQ 5$ : 
62 D4 0004D 4$ CLRL § MHDSEEN > 2135 
50 01 Bd O04F 5$ HOVL #1, : 2136 
7€ 00006 CF 10 1 §088 6$: ADDL3. #16, LIBSGL_INPFDB, -(SP) > 2140 
28 A2 9F 00059 PUSHAB MODNAMLNG : 2139 
Q Dd 0005¢ PUSHL + 2140 
DD 0005E PUSHL R ; 
000000006 00 04 FB 00060 CALLS #4, LIBSSIGNAL : 
50 3 pO 00067 MOVL 3, RO ; 2141 
04 0006A RET + 2143 


; Routine Size: 107 bytes, Routine Base: S$CODE$ + 0A42 


prorec 


1107 1446 1 2SBTTL ‘prorec'; 
11 145 1 
11 138 1 ROT Ine prorec = 
11 ie go 
1115 129 i This routine checks for proper recoré sequence and then 
137 } ? copies the record to the object Library. 
1115 1 § ‘tore (ieee 'Check sequence 
1118 1 F NOT .L netinsh Cl ibSv. shrstb] 
111 154 NOHEN RETURN copyrec 'Copy to Library 
1333 155 ELSE RETURN true 
111 156 END; 'Of prorec 
0000 00000 PROREC: .WORD Save nothing 
SF sAF 00 4; Sp Ong CALLS #0, SEQCHK 
OF 50 €E9 00006 LBC STATUS, 2$ 
06 00006 CF 05 €0 00009 BBS #5, LIBSGL_CTLMSK, 1$ 
0000V CF 00 FB O000F CALLS #0, COPYRET 
04 00014 ET 
50 01 00 00015 1$: MOVL #1, RO 
04 00018 2$: RET 


Routine Size: 25 bytes, Routine Base: $CODE$ + OAAD 


1120 $122 1 ROUTINE copyrec = 

1121 158 2 BEGIN 

1166 2159 ! 

1134 zich This routine copies the record to the object Library 

1125 106 LOCAL 

1126 16 txtrfa : _BBLOCK Crfa$c_length], 

115¢ 196 bufdesc : BBLOCK Cdsc$¢_s_binj; 

1129 166 bufdesc Cdsc$w_length] = “recing: 

1130 16 bufdesc ([dsc$a_pointer] = .ob ire 

1131 P 2168 rms_perform (lBr$put_record Libggl_ Libetl, bufdesc gxe trfa) 
1138 19? Lib$_writeerr, .lbr$ Sol rmsstv, 1, Lib$gl_ Libfdb Cfdb bS{_namdescJ); 
11 170 IF .modulerfa (rfa$l_vbn] E 

1134 171 THEN BEGIN 

1135 1% modulerfa (rfa$l_vbn] =_.txtrfa Crfa$l_vbn); 

1136 17 modulerfa (rfa$w_offset) = .txtrfa (rfasw_ offset): 

14 174 END; 

1138 175 RETURN true 

1139 176 1 END; 'Of copyrec 


000 COPYREC: .WORD 


0004 00 Save R2 
52 0000" CF 9E 00002 MOVAB MODULERFA, R2 
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LIB_INPUTOBJ 16-Sep- AX-11 Bliss-32 v4. 
Lhe =h00 prorec 14- ps 138 9}: 35; 3 ANBRAR RET INEUT ORs. 03 B32;1 
1 C 7 SUBL2 #16, SP 
6E C hg 65 Oh MOVW RECLNG, orp ESC 
wie sy AE br 00078 PUSHAB TxTREA” ori 
aoc fF FF S881 RURAS PHRRESS aac 
000000006 9 fe 10 CALLS ay RECORD 
D E 8 4 BLBS 
000000006 ee i puze ag RNSSTV 
7E 0000G CF As 3 3 fF at #16, LIBSGL_LIBFDB, -(SP) 
008610D2 DD 8 ; PUSHL 786130 
apenas’ ne $3 8 ieee 1$ Fails mobuteRFAT 
72 00046 BNEQ 
6 08 AE 66 boca MOVL TXTRFA, MODULERFA 
06 =A C AE BO 0004C MOVW TXTRFA+4, MODULERFA+4 
5 01 DO 00051 2$ MOVL #1, RO 
04 00054 RET 


; Routine Size: 85 bytes, Routine Base: $CODES + OAC6 


; 1140 giz? 
3 1141 178 1 END 
3 1142 2179 O ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
;  SOWNS 200 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS i2¢ NOVEC,NOWRT, RD .NOEXE.NOSHR, LCL, R L, CON,NOPIC,ALIGN(2) 
; SCODES 2843 NOVEC.NOWRT, RD. EXE.NOSHR. LCL, REL. CON.NOPIC,ALIGN(2) 
; Library Statistics 
itt SE 1 oe Nite cg ATs woe on ot a Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28: CSYSLIBILIB.L32;1 18619 120 0 1000 00:01.9 


ibesdooe oe prorec be: £07 1382 9}: 35; bc MBRAR Shed INPUT OBs.033;1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$: INPUTOBJ/OBJ=O0BJ$: INPUTOBJ MSRC$: INPUTOBJ/UPDATE=(ENH$: INPUTOBU) 
Size: 284 8 e + 352 data bytes 
Run Time: :56. 


Elapsed Time: :02. 
Lines/CPU Min: 3 
‘rece A ay 28165 


: 275 pages 
commthetion tenpleree 
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